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: |
a8a3ecf0a826e22476dc606774cb83e8 |
| 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
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 {
|