database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Fix bugs in test scripts that came of of sse testing. (CVS 2879)

Browse Source 
FossilOrigin-Name: 22bf1a2ffac503020dfa78d228b561d1cf6f3894
This commit is contained in:
drh
2006-01-06 22:11:20 +00:00
parent 198bf39128
commit a34c62d866
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.57 2006/01/05 11:34:34 danielk1977 Exp $
# $Id: tester.tcl,v 1.58 2006/01/06 22:11:21 drh Exp $
# Make sure tclsqlite3 was compiled correctly. Abort now with an
# error message if not.
@ -336,7 +336,7 @@ proc do_ioerr_test {testname args} {
catch {file delete -force test.db-journal}
catch {file delete -force test2.db}
catch {file delete -force test2.db-journal}
set ::DB [sqlite3 db test.db]
set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db]
if {[info exists ::ioerropts(-tclprep)]} {
eval $::ioerropts(-tclprep)
}
@ -383,7 +383,7 @@ proc do_ioerr_test {testname args} {
if {$::go && $::ioerropts(-cksum)} {
do_test $testname.$n.4 {
catch {db close}
set ::DB [sqlite3 db test.db]
set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db]
cksum
} $checksum
}