database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00
Code Activity

Replace invocation of (really_finish_test) from async.test with (finish_test). Otherwise a tcl exception may be thrown when running permutations. (CVS 6493)

Browse Source 
FossilOrigin-Name: e6465e9da3d754833c21e0fb76c16a4efd047b91
This commit is contained in:
danielk1977
2009-04-11 10:25:03 +00:00
parent be20e8eccb
commit 1c50179332
3 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/async.test
View File

@@ -6,7 +6,7 @@
#***********************************************************************
# This file runs all tests.
#
# $Id: async.test,v 1.18 2009/04/10 20:55:14 drh Exp $
# $Id: async.test,v 1.19 2009/04/11 10:25:04 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -23,9 +23,10 @@ proc finish_test {} {
catch {db2 close}
catch {db3 close}
}
if {[info exists ISQUICK]} { set ASYNC_SAVE_ISQUICK $ISQUICK }
set ISQUICK 1
set INCLUDE {
set ASYNC_INCLUDE {
insert.test
insert2.test
insert3.test
@@ -53,7 +54,7 @@ proc do_test {name args} {
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
set tail [file tail $testfile]
if {[lsearch -exact $INCLUDE $tail]<0} continue
if {[lsearch -exact $ASYNC_INCLUDE $tail]<0} continue
source $testfile
# Make sure everything is flushed through. This is because [source]ing
@@ -77,8 +78,11 @@ sqlite3async_halt never
sqlite3async_enable 0
set sqlite3async_trace 0
really_finish_test
rename do_test {}
rename async_really_do_test do_test
rename finish_test {}
rename async_really_finish_test finish_test
if {[info exists ASYNC_SAVE_ISQUICK]} { set ISQUICK $ASYNC_SAVE_ISQUICK }
finish_test