Import SQLite 3.8.7.4.

third_party/sqlite/src/test/thread003.test

 # 2007 September 10
 #
 # 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 22 matching lines @@
   execsql { 
     CREATE INDEX i1 ON t1(a, b); 
     COMMIT;
   }
 } {}
 do_test thread003.1.2 {
   expr {([file size test.db] / 1024) > 2000}
 } {1}
 do_test thread003.1.3 {
   db close
-  file delete -force test2.db
+  forcedelete test2.db
   sqlite3 db test2.db
 } {}
 do_test thread003.1.4 {
   execsql {
     BEGIN;
     CREATE TABLE t1(a, b, c);
   }
   for {set ii 0} {$ii < 5000} {incr ii} {
     execsql {INSERT INTO t1 VALUES($ii, randomblob(200), randomblob(200))}
   }
@@ skipping 19 matching lines @@
 # over again. This will force the connections to recycle clean pages from
 # each other. If there is a thread-safety problem, a segfault or assertion
 # failure may eventually occur.
 #
 set nSecond 30
 puts "Starting thread003.2 (should run for ~$nSecond seconds)"
 do_test thread003.2 {
   foreach zFile {test.db test2.db} {
     set SCRIPT [format {
       set iEnd [expr {[clock_seconds] + %d}]
-      set ::DB [sqlthread open %s]
+      set ::DB [sqlthread open %s xyzzy]
   
       # Set the cache size to 15 pages per cache. 30 available globally.
       execsql { PRAGMA cache_size = 15 }
   
       while {[clock_seconds] < $iEnd} {
         set iQuery [expr {int(rand()*5000)}]
         execsql " SELECT * FROM t1 WHERE a = $iQuery "
       }
   
       sqlite3_close $::DB
@@ skipping 16 matching lines @@
 # between the caches internal dirty and clean lists, which is another
 # opportunity for a thread-related bug to present itself.
 #
 set nSecond 30
 puts "Starting thread003.3 (should run for ~$nSecond seconds)"
 do_test thread003.3 {
   foreach zFile {test.db test2.db} {
     set SCRIPT [format {
       set iStart [clock_seconds]
       set iEnd [expr {[clock_seconds] + %d}]
-      set ::DB [sqlthread open %s]
+      set ::DB [sqlthread open %s xyzzy]
   
       # Set the cache size to 15 pages per cache. 30 available globally.
       execsql { PRAGMA cache_size = 15 }
   
       while {[clock_seconds] < $iEnd} {
         set iQuery [expr {int(rand()*5000)}]
         execsql "SELECT * FROM t1 WHERE a = $iQuery"
         execsql "UPDATE t1 SET b = randomblob(200) 
                  WHERE a < $iQuery AND a > $iQuery + 20
         "
@@ skipping 18 matching lines @@
 # The other thread does not have a database connection, but calls
 # sqlite3_release_memory() over and over again.
 #
 set nSecond 30
 puts "Starting thread003.4 (should run for ~$nSecond seconds)"
 unset -nocomplain finished(1)
 unset -nocomplain finished(2)
 do_test thread003.4 {
   thread_spawn finished(1) $thread_procs [format {
     set iEnd [expr {[clock_seconds] + %d}]
-    set ::DB [sqlthread open test.db]
+    set ::DB [sqlthread open test.db xyzzy]
 
     # Set the cache size to 15 pages per cache. 30 available globally.
     execsql { PRAGMA cache_size = 15 }
 
     while {[clock_seconds] < $iEnd} {
       set iQuery [expr {int(rand()*5000)}]
       execsql "SELECT * FROM t1 WHERE a = $iQuery"
     }
 
     sqlite3_close $::DB
@@ skipping 10 matching lines @@
   foreach ii {1 2} {
     if {![info exists finished($ii)]} {
       vwait finished($ii)
     }
   }
   expr 0
 } {0}
 
 set sqlite_open_file_count 0
 finish_test