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 |
Timelines: | family | ancestors | descendants | both | tdbcsqlite3-stwo |
Files: | files | file ages | folders |
SHA1: |
a8a3ecf0a826e22476dc606774cb83e8 |
User & Date: | stu 2017-05-20 01:31:47.677 |
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
Changes to tests/tdbcsqlite3.test.
︙ | ︙ | |||
14 15 16 17 18 19 20 | if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 namespace import -force ::tcltest::* } loadTestedCommands package require tdbc::sqlite3 | > > > | > > > > | > > > | 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 { |
︙ | ︙ |