Import SQLite 3.8.7.4.

third_party/sqlite/src/test/thread002.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.
 #
 #***********************************************************************
 #
 #   This test attempts to deadlock SQLite in shared-cache mode.
 #     
 #
 # $Id: thread002.test,v 1.9 2009/03/26 14:48:07 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 
+set do_not_use_codec 1
 source $testdir/tester.tcl
 if {[run_thread_tests]==0} { finish_test ; return }
 
+
 db close
 set ::enable_shared_cache [sqlite3_enable_shared_cache 1]
 
 set ::NTHREAD 10
 
 do_test thread002.1 {
   # Create 3 databases with identical schemas:
   for {set ii 0} {$ii < 3} {incr ii} {
-    file delete -force test${ii}.db
+    forcedelete test${ii}.db
     sqlite3 db test${ii}.db
     execsql {
       CREATE TABLE t1(k, v);
       CREATE INDEX t1_i ON t1(v);
       INSERT INTO t1(v) VALUES(1.0);
     }
     db close
   }
 } {}
 
@@ skipping 53 matching lines @@
       [execsql {PRAGMA integrity_check}]  \
     ]
     db close
     set res
   } [list [expr 1 + $::NTHREAD*100] ok]
 }
 
 sqlite3_enable_shared_cache $::enable_shared_cache
 set sqlite_open_file_count 0
 finish_test