Import SQLite 3.8.7.4.

third_party/sqlite/src/test/walthread.test

 # 2010 April 13
 #
 # 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 111 matching lines @@
   }
 
   if {$P(seconds) == 0} {
     puts "Skipping $P(testname)"
     return
   }
 
   puts "Running $P(testname) for $P(seconds) seconds..."
 
   catch { db close }
-  file delete -force test.db test.db-journal test.db-wal
+  forcedelete test.db test.db-journal test.db-wal
 
   sqlite3 db test.db
   eval $P(init)
   catch { db close }
 
   foreach T $P(threads) {
     set name  [lindex $T 0]
     set count [lindex $T 1]
     set prg   [lindex $T 2]
 
@@ skipping 127 matching lines @@
      || [lindex $results 1] != [lindex $results 2]
      || [lindex $results 2] != [lindex $results 3]
     } {
       error "Failed read transaction: $results"
     }
   }
 
   proc write_transaction {} {
     db eval {
       BEGIN;
-        INSERT INTO t1 VALUES(randomblob(100));
-        INSERT INTO t1 VALUES(randomblob(100));
+        INSERT INTO t1 VALUES(randomblob(101 + $::E(pid)));
+        INSERT INTO t1 VALUES(randomblob(101 + $::E(pid)));
         INSERT INTO t1 SELECT md5sum(x) FROM t1;
       COMMIT;
     }
   }
 
   # Turn off auto-checkpoint. Otherwise, an auto-checkpoint run by a
   # writer may cause the dedicated checkpoint thread to return an
   # SQLITE_BUSY error.
   #
   db eval { PRAGMA wal_autocheckpoint = 0 }
@@ skipping 209 matching lines @@
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /*  1024 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /*  2048 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /*  4096 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /*  8192 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /* 16384 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /* 32768 */
       INSERT INTO t1 SELECT randomblob(900) FROM t1;      /* 65536 */
     COMMIT;
   }
 
-  file copy -force test.db-wal bak.db-wal
-  file copy -force test.db bak.db
+  forcecopy test.db-wal bak.db-wal
+  forcecopy test.db bak.db
   db close
 
-  file copy -force bak.db-wal test.db-wal
-  file copy -force bak.db test.db
+  forcecopy bak.db-wal test.db-wal
+  forcecopy bak.db test.db
 
   if {[file size test.db-wal] < [log_file_size [expr 64*1024] 1024]} {
     error "Somehow failed to create a large log file"
   }
   puts "Database with large log file recovered. Now running clients..."
 } -thread T 5 {
   db eval { SELECT count(*) FROM t1 }
 }
 unset -nocomplain seconds
 
 finish_test