Index: third_party/sqlite/src/test/mallocAll.test |
diff --git a/third_party/sqlite/src/test/mallocAll.test b/third_party/sqlite/src/test/mallocAll.test |
index 5fbd849596c385dc47511d1372fb04d7be4c35ff..b1c94ea23aeafc353ec016b7ffc05454a8fa63ce 100644 |
--- a/third_party/sqlite/src/test/mallocAll.test |
+++ b/third_party/sqlite/src/test/mallocAll.test |
@@ -30,7 +30,7 @@ set testdir [file dirname $argv0] |
source $testdir/tester.tcl |
rename finish_test really_finish_test |
proc finish_test {} {} |
-set ISQUICK 1 |
+set G(isquick) 1 |
set EXCLUDE { |
mallocAll.test |
@@ -56,8 +56,7 @@ foreach testfile [lsort -dictionary [glob $testdir/*malloc*.test]] { |
catch {db close} |
if {$sqlite_open_file_count>0} { |
puts "$tail did not close all files: $sqlite_open_file_count" |
- incr nErr |
- lappend ::failList $tail |
+ fail_test $tail |
set sqlite_open_file_count 0 |
} |
} |