Import SQLite 3.8.7.4.

third_party/sqlite/src/test/thread001.test

 # 2007 September 7
 #
 # 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 24 matching lines @@
 ] {
   # Empty the database.
   #
   catchsql { DROP TABLE ab; }
 
   do_test thread001.$tn.0 {
     db close
     sqlite3_enable_shared_cache $shared_cache
     sqlite3_enable_shared_cache $shared_cache
   } $shared_cache
-  sqlite3 db test.db -fullmutex 1
+  sqlite3 db test.db -fullmutex 1 -key xyzzy
 
   set dbconfig ""
   if {$same_db} {
     set dbconfig [list set ::DB [sqlite3_connection_pointer db]]
   }
 
   # Set up a database and a schema. The database contains a single
   # table with two columns. The first column ("a") is an INTEGER PRIMARY 
   # KEY. The second contains the md5sum of all rows in the table with
   # a smaller value stored in column "a".
@@ skipping 14 matching lines @@
     }
   } {1}
   do_test thread001.$tn.3 {
     execsql { PRAGMA integrity_check }
   } {ok}
 
   set thread_program {
     #sqlthread parent {puts STARTING..}
     set needToClose 0
     if {![info exists ::DB]} {
-      set ::DB [sqlthread open test.db]
+      set ::DB [sqlthread open test.db xyzzy]
       #sqlthread parent "puts \"OPEN $::DB\""
       set needToClose 1
     }
   
     for {set i 0} {$i < 100} {incr i} {
       # Test that the invariant is true.
       do_test t1 {
         execsql {
           SELECT 
-            (SELECT md5sum(a, b) FROM ab WHERE a < (SELECT max(a) FROM ab)) ==
+            (SELECT md5sum(a, b) FROM ab WHERE +a < (SELECT max(a) FROM ab)) ==
             (SELECT b FROM ab WHERE a = (SELECT max(a) FROM ab))
         }
       } {1}
   
       # Add another row to the database.
       execsql { INSERT INTO ab SELECT NULL, md5sum(a, b) FROM ab }
     }
   
     if {$needToClose} {
       #sqlthread parent "puts \"CLOSE $::DB\""
@@ skipping 23 matching lines @@
   }
   
   # Check the database still looks Ok.
   #
   do_test thread001.$tn.5 {
     execsql { SELECT count(*) FROM ab; }
   } [expr {1 + $::NTHREAD*100}]
   do_test thread001.$tn.6 {
     execsql {
       SELECT 
-        (SELECT md5sum(a, b) FROM ab WHERE a < (SELECT max(a) FROM ab)) ==
+        (SELECT md5sum(a, b) FROM ab WHERE +a < (SELECT max(a) FROM ab)) ==
         (SELECT b FROM ab WHERE a = (SELECT max(a) FROM ab))
     }
   } {1}
   do_test thread001.$tn.7 {
     execsql { PRAGMA integrity_check }
   } {ok}
 }
 
 sqlite3_enable_shared_cache $::enable_shared_cache
 set sqlite_open_file_count 0
 finish_test