tdbc::sqlite3

Check-in [a8a3ecf0a8]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Implement env test vars. Useful? Should TDBCSQLITE3_TEST_FILE be TDBCSQLITE3_TEST_DB?
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tdbcsqlite3-stwo
Files: files | file ages | folders
SHA1: a8a3ecf0a826e22476dc606774cb83e839e62a00
User & Date: stu 2017-05-20 01:31:47
Context
2017-05-23
19:37
Merge tdbcsqlite3-stwo. check-in: 84905d446b user: stu tags: trunk
2017-05-20
01:31
Implement env test vars. Useful? Should TDBCSQLITE3_TEST_FILE be TDBCSQLITE3_TEST_DB? Closed-Leaf check-in: a8a3ecf0a8 user: stu tags: tdbcsqlite3-stwo
01:26
Remove bad comment. check-in: cff0c53f45 user: stu tags: tdbcsqlite3-stwo
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/tdbcsqlite3.test.

14
15
16
17
18
19
20
21







22



23
24
25
26
27
28
29
if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest 2
    namespace import -force ::tcltest::*
}
loadTestedCommands
package require tdbc::sqlite3

set testdir [makeDirectory tdbctest]







set testFileName test.db



set testDBName [makeFile {} $testFileName $testdir]
catch {file delete -force $testDBName}

#-------------------------------------------------------------------------------

test tdbc::sqlite3-1.1 {create a connection, wrong # args} {*}{
    -body {






|
>
>
>
>
>
>
>
|
>
>
>







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest 2
    namespace import -force ::tcltest::*
}
loadTestedCommands
package require tdbc::sqlite3

if {[info exists ::env(TDBCSQLITE3_TEST_DIR)]} {
    set testDirName $::env(TDBCSQLITE3_TEST_DIR)
} else {
    set testDirName tdbctest
}
if {[info exists ::env(TDBCSQLITE3_TEST_FILE)]} {
    set testFileName $::env(TDBCSQLITE3_TEST_FILE)
} else {
    set testFileName test.db
}

set testdir [makeDirectory $testDirName]
set testDBName [makeFile {} $testFileName $testdir]
catch {file delete -force $testDBName}

#-------------------------------------------------------------------------------

test tdbc::sqlite3-1.1 {create a connection, wrong # args} {*}{
    -body {