Import SQLite 3.7.6.3.

third_party/sqlite/src/test/soak.test

 # 2007 May 24
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 47 matching lines @@
 
 # List of test files that are run by this file.
 #
 set SOAKTESTS {
   fuzz.test
   fuzz_malloc.test
   trans.test
   corruptC.test
 }
 
-set ISQUICK 1
+set G(isquick) 1
 
 set soak_starttime  [clock seconds]
 set soak_finishtime [expr {$soak_starttime + $TIMEOUT}]
 
 # Loop until the timeout is reached or an error occurs.
 #
-for {set iRun 0} {[clock seconds] < $soak_finishtime && $nErr==0} {incr iRun} {
+for {set iRun 0} {[clock seconds] < $soak_finishtime} {incr iRun} {
 
   set iIdx [expr {$iRun % [llength $SOAKTESTS]}]
   source [file join $testdir [lindex $SOAKTESTS $iIdx]]
   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
   }
 
+  if {[set_test_counter errors]>0} break
 }
 
 really_finish_test