tdbc::sqlite3

Check-in [e08976e6a8]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:FILE -> DB
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | tdbcsqlite3-1-0-5
Files: files | file ages | folders
SHA1: e08976e6a8a044087690836d4909fc4c5de8678f
User & Date: stu 2017-05-29 21:07:11
Context
2017-12-13
11:16
Merge vc-reform: new nmake build system check-in: 22c23aa8b2 user: apnadkarni tags: trunk
2017-12-10
13:41
Create new branch named "vc-reform" check-in: 972618f7d2 user: apnadkarni tags: vc-reform
2017-05-29
21:07
FILE -> DB check-in: e08976e6a8 user: stu tags: trunk, tdbcsqlite3-1-0-5
2017-05-26
18:32
rm -f not needed before ${INSTALL_*}. A ghost of past installing. check-in: a5d1b47530 user: stu tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/tdbcsqlite3.test.

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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}






|
|







19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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_DB)]} {
    set testFileName $::env(TDBCSQLITE3_TEST_DB)
} else {
    set testFileName test.db
}

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