Import SQLite 3.7.6.3.

third_party/sqlite/src/test/exclusive.test

 # 2007 March 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 194 matching lines @@
 do_test exclusive-2.7 {
   catchsql {
     COMMIT
   } db2
 } {1 {database is locked}}
 do_test exclusive-2.8 {
   execsql {
     ROLLBACK;
   } db2
 } {}
-sqlite3_soft_heap_limit $soft_limit
+sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
 do_test exclusive-2.9 {
   # Write the database to establish the exclusive lock with connection 'db.
   execsql {
     INSERT INTO abc VALUES(7, 8, 9);
   } db
   catchsql {
     SELECT * FROM abc;
   } db2
 } {1 {database is locked}}
@@ skipping 20 matching lines @@
 #----------------------------------------------------------------------
 # Tests exclusive-3.X - test that a connection in exclusive mode 
 # truncates instead of deletes the journal file when committing 
 # a transaction.
 #
 # These tests are not run on windows because the windows backend
 # opens the journal file for exclusive access, preventing its contents 
 # from being inspected externally.
 #
 if {$tcl_platform(platform) != "windows"} {
+
+  # Return a list of two booleans (either 0 or 1). The first is true
+  # if the named file exists. The second is true only if the file
+  # exists and the first 28 bytes contain at least one non-zero byte.
+  #
   proc filestate {fname} {
     set exists 0
     set content 0
     if {[file exists $fname]} {
       set exists 1
       set hdr [hexio_read $fname 0 28]
       set content [expr {0==[string match $hdr [string repeat 0 56]]}]
     }
     list $exists $content
   }
+
   do_test exclusive-3.0 {
     filestate test.db-journal
   } {0 0}
   do_test exclusive-3.1 {
     execsql {
       PRAGMA locking_mode = exclusive;
       BEGIN;
       DELETE FROM abc;
     }
     filestate test.db-journal
@@ skipping 107 matching lines @@
 
 #----------------------------------------------------------------------
 # Tests exclusive-5.X - test that statement journals are truncated
 # instead of deleted when in exclusive access mode.
 #
 
 # Close and reopen the database so that the temp database is no
 # longer active.
 #
 db close
-sqlite db test.db
+sqlite3 db test.db
 
 # if we're using proxy locks, we use 3 filedescriptors for a db
 # that is open but NOT writing changes, normally
 # sqlite uses 1 (proxy locking adds the conch and the local lock)
 set using_proxy 0
 foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {
   set using_proxy $value
 }
 set extrafds 0
 if {$using_proxy!=0} {
@@ skipping 52 matching lines @@
     PRAGMA locking_mode = normal;
     SELECT * FROM abc;
   }
 } {normal 1 2 3 2 3 4 5 6 7 11 12 13 12 13 14 15 16 17}
 do_test exclusive-5.7 {
   # Just the db open.
   set sqlite_open_file_count
   expr $sqlite_open_file_count-$extrafds
 } {1}
 
+#-------------------------------------------------------------------------
+
+do_execsql_test exclusive-6.1 {
+  CREATE TABLE t4(a, b);
+  INSERT INTO t4 VALUES('Eden', 1955);
+  BEGIN;
+    INSERT INTO t4 VALUES('Macmillan', 1957);
+    INSERT INTO t4 VALUES('Douglas-Home', 1963);
+    INSERT INTO t4 VALUES('Wilson', 1964);
+}
+do_test exclusive-6.2 {
+  forcedelete test2.db test2.db-journal
+  file copy test.db test2.db
+  file copy test.db-journal test2.db-journal
+  sqlite3 db test2.db
+} {}
+
+do_execsql_test exclusive-6.3 {
+  PRAGMA locking_mode = EXCLUSIVE;
+  SELECT * FROM t4;
+} {exclusive Eden 1955}
+
+do_test exclusive-6.4 {
+  db close
+  forcedelete test.db test.db-journal
+  set fd [open test.db-journal w]
+  puts $fd x
+  close $fd
+  sqlite3 db test.db
+} {}
+
+do_execsql_test exclusive-6.5 {
+  PRAGMA locking_mode = EXCLUSIVE;
+  SELECT * FROM sqlite_master;
+} {exclusive}
+
 finish_test
+