Import SQLite 3.8.7.4.

third_party/sqlite/src/test/walbak.test

 # 2010 April 22
 #
 # 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 30 matching lines @@
     PRAGMA page_size = 1024;
     PRAGMA auto_vacuum = 0;
     PRAGMA journal_mode = wal;
     BEGIN;
       CREATE TABLE t1(a PRIMARY KEY, b);
       INSERT INTO t1 VALUES('I', 'one');
     COMMIT;
   }
 } {wal}
 do_test walbak-1.1 {
-  file delete -force bak.db bak.db-journal bak.db-wal
+  forcedelete bak.db bak.db-journal bak.db-wal
   db backup bak.db
   file size bak.db
 } [expr 3*1024]
 do_test walbak-1.2 {
   sqlite3 db2 bak.db
   execsql { 
     SELECT * FROM t1;
     PRAGMA main.journal_mode;
   } db2
 } {I one wal}
@@ skipping 10 matching lines @@
     PRAGMA main.journal_mode;
   }
 } {wal}
 do_test walbak-1.5 {
   list [file size test.db] [file size test.db-wal]
 } [list 1024 [wal_file_size 6 1024]]
 do_test walbak-1.6 {
   execsql { PRAGMA wal_checkpoint }
   list [file size test.db] [file size test.db-wal]
 } [list [expr 3*1024] [wal_file_size 6 1024]]
+do_test walbak-1.6.1 {
+  hexio_read test.db 18 2
+} {0202}
 do_test walbak-1.7 {
   execsql { 
     CREATE TABLE t2(a, b);
     INSERT INTO t2 SELECT * FROM t1;
     DROP TABLE t1;
   }
   list [file size test.db] [file size test.db-wal]
 } [list [expr 3*1024] [wal_file_size 6 1024]]
 do_test walbak-1.8 {
   execsql { VACUUM }
   list [file size test.db] [file size test.db-wal]
 } [list [expr 3*1024] [wal_file_size 8 1024]]
 do_test walbak-1.9 {
   execsql { PRAGMA wal_checkpoint }
   list [file size test.db] [file size test.db-wal]
 } [list [expr 2*1024] [wal_file_size 8 1024]]
 
 #-------------------------------------------------------------------------
 # Backups when the source db is modified mid-backup.
 #
 proc sig {{db db}} {
   $db eval { 
     PRAGMA integrity_check;
     SELECT md5sum(a, b) FROM t1; 
   }
 }
 db close
-file delete test.db
+delete_file test.db
 sqlite3 db test.db
 do_test walbak-2.1 {
   execsql { PRAGMA journal_mode = WAL }
   execsql {
     CREATE TABLE t1(a PRIMARY KEY, b);
     BEGIN;
       INSERT INTO t1 VALUES(randomblob(500), randomblob(500));
       INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; /*  2 */
       INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; /*  4 */
       INSERT INTO t1 SELECT randomblob(500), randomblob(500) FROM t1; /*  8 */
@@ skipping 109 matching lines @@
     sqlite3 db2 test.db2
     db  eval { PRAGMA page_size = 1024 ; PRAGMA journal_mode = WAL }
     db2 eval { 
       PRAGMA page_size = 2048;
       PRAGMA journal_mode = PERSIST;
       CREATE TABLE xx(x);
     }
   }
 
 } {
-  foreach f [glob -nocomplain test.db*] { file delete -force $f }
+  foreach f [glob -nocomplain test.db*] { forcedelete $f }
 
   eval $setup
 
   do_test walbak-3.$tn.1 {
     execsql {
       CREATE TABLE t1(a, b);
       INSERT INTO t1 VALUES(1, 2);
       INSERT INTO t1 VALUES(3, 4);
       SELECT * FROM t1;
     }
@@ skipping 14 matching lines @@
     } db2
   } {1 2 3 4 5 6 7 8}
 
   do_test walbak-3.$tn.4 {
     sqlite3_backup B db main db2 main
     B step 10000
     B finish
     execsql { SELECT * FROM t1 }
   } {1 2 3 4 5 6 7 8}
 
+  # Check that [db] is still in WAL mode.
+  do_test walbak-3.$tn.5 {
+    execsql { PRAGMA journal_mode }
+  } {wal}
+  do_test walbak-3.$tn.6 {
+    execsql { PRAGMA wal_checkpoint }
+    hexio_read test.db 18 2
+  } {0202}
+
+  # If it was not an in-memory database, check that [db2] is still in
+  # rollback mode.
+  if {[file exists test.db2]} {
+    do_test walbak-3.$tn.7 {
+      execsql { PRAGMA journal_mode } db2
+    } {wal}
+    do_test walbak-3.$tn.8 {
+      execsql { PRAGMA wal_checkpoint }
+      hexio_read test.db 18 2
+    } {0202}
+  }
+
   db  close
   db2 close
 }
 
+#-------------------------------------------------------------------------
+# Test that the following holds when a backup operation is run:
+#
+#   Source  |  Destination inital  |  Destination final
+#   ---------------------------------------------------
+#   Rollback   Rollback               Rollback
+#   Rollback   WAL                    WAL
+#   WAL        Rollback               WAL
+#   WAL        WAL                    WAL
+#
+foreach {tn src dest dest_final} {
+  1   delete    delete    delete
+  2   delete    wal       wal
+  3   wal       delete    wal
+  4   wal       wal       wal
+} {
+  catch { db close } 
+  catch { db2 close } 
+  forcedelete test.db test.db2
+
+  do_test walbak-4.$tn.1 {
+    sqlite3 db test.db
+    db eval "PRAGMA journal_mode = $src"
+    db eval {
+      CREATE TABLE t1(a, b);
+      INSERT INTO t1 VALUES('I', 'II');
+      INSERT INTO t1 VALUES('III', 'IV');
+    }
+
+    sqlite3 db2 test.db2
+    db2 eval "PRAGMA journal_mode = $dest"
+    db2 eval {
+      CREATE TABLE t2(x, y);
+      INSERT INTO t2 VALUES('1', '2');
+      INSERT INTO t2 VALUES('3', '4');
+    }
+  } {}
+
+  do_test walbak-4.$tn.2 { execsql { PRAGMA journal_mode } db  } $src
+  do_test walbak-4.$tn.3 { execsql { PRAGMA journal_mode } db2 } $dest
+
+  do_test walbak-4.$tn.4 { db backup test.db2 } {}
+  do_test walbak-4.$tn.5 {
+    execsql { SELECT * FROM t1 } db2
+  } {I II III IV}
+  do_test walbak-4.$tn.5 { execsql { PRAGMA journal_mode } db2 } $dest_final
+
+
+  db2 close
+  do_test walbak-4.$tn.6 { file exists test.db2-wal } 0
+  sqlite3 db2 test.db2
+  do_test walbak-4.$tn.7 { execsql { PRAGMA journal_mode } db2 } $dest_final
+}
+
 
 finish_test