tdbc::sqlite3

Check-in [84905d446b]
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:Merge tdbcsqlite3-stwo.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 84905d446bcab70c6bab0945f6854083ce8c3d78
User & Date: stu 2017-05-23 19:37:44
Context
2017-05-26
18:32
rm -f not needed before ${INSTALL_*}. A ghost of past installing. check-in: a5d1b47530 user: stu tags: trunk
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
2017-05-04
19:28
Bump TEA_INIT to 3.10 also; tolerate harness options without warnings. check-in: 38915ae049 user: dgp tags: trunk
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
30
31
32
if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest 2
    namespace import -force ::tcltest::*
}
loadTestedCommands
package require tdbc::sqlite3

# Test setup.  We need a database to work on, so copy 'test.mdb' to a
# temp file, and run from it.



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 {