Import SQLite 3.7.6.3.

third_party/sqlite/src/test/backup.test

 # 2009 January 30
 #
 # 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 file implements regression tests for SQLite library.  The
 # focus of this file is testing the sqlite3_backup_XXX API.
 #
 # $Id: backup.test,v 1.11 2009/06/05 17:09:12 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+do_not_use_codec
+
 #---------------------------------------------------------------------
 # Test organization:
 #
 # backup-1.*: Warm-body tests.
 #
 # backup-2.*: Test backup under various conditions. To and from in-memory
 #             databases. To and from empty/populated databases. etc.
 #
 # backup-3.*: Verify that the locking-page (pending byte page) is handled.
 #
 # backup-4.*: Test various error conditions.
 #
 # backup-5.*: Test the source database being modified during a backup.
 #
 # backup-6.*: Test the backup_remaining() and backup_pagecount() APIs.
 #
 # backup-7.*: Test SQLITE_BUSY and SQLITE_LOCKED errors.
 #
 # backup-8.*: Test multiple simultaneous backup operations.
 #
 # backup-9.*: Test that passing a negative argument to backup_step() is
 #             interpreted as "copy the whole file".
+# 
+# backup-10.*: Test writing the source database mid backup.
 #
 
 proc data_checksum {db file} { $db one "SELECT md5sum(a, b) FROM ${file}.t1" }
 proc test_contents {name db1 file1 db2 file2} {
   $db2 eval {select * from sqlite_master}
   $db1 eval {select * from sqlite_master}
   set checksum [data_checksum $db2 $file2]
   uplevel [list do_test $name [list data_checksum $db1 $file1] $checksum]
 }
 
@@ skipping 115 matching lines @@
   # Open the databases.
   catch { file delete test.db }
   catch { file delete test2.db }
   eval $zOpenScript
 
   # Set to true if copying to an in-memory destination. Copying to an 
   # in-memory destination is only possible if the initial destination
   # page size is the same as the source page size (in this case 1024 bytes).
   #
   set isMemDest [expr {
-    $zDestFile eq ":memory:" || $file_dest eq "temp" && $TEMP_STORE==3
+    $zDestFile eq ":memory:" || $file_dest eq "temp" && $TEMP_STORE>=2
   }]
 
   if { $isMemDest==0 || $pgsz_dest == 1024 } {
     if 0 {
       puts -nonewline "Test $iTest: src=$zSrcFile dest=$zDestFile"
       puts -nonewline " (as $db_dest.$file_dest)"
       puts -nonewline " rows_dest=$rows_dest pgsz_dest=$pgsz_dest"
       puts ""
     }
 
@@ skipping 293 matching lines @@
 # backup-5.x.5.*: Database is shrunk via incr-vacuum.
 #
 # Each test is run three times, in the following configurations:
 #
 #   1) Backing up file-to-file. The writer writes via an external pager.
 #   2) Backing up file-to-file. The writer writes via the same pager as
 #      is used by the backup operation.
 #   3) Backing up memory-to-file. 
 #
 set iTest 0
+file delete -force bak.db-wal
 foreach {writer file} {db test.db db3 test.db db :memory:} {
   incr iTest
   catch { file delete bak.db }
   sqlite3 db2 bak.db
   catch { file delete $file }
   sqlite3 db $file
   sqlite3 db3 $file
 
   do_test backup-5.$iTest.1.1 {
     execsql {
@@ skipping 397 matching lines @@
     B finish
   } {SQLITE_OK}
   do_test backup-10.1.5 {
     execsql { PRAGMA integrity_check } db3
   } {ok}
 
   db2 close
   db3 close
 }
 
+
+#-----------------------------------------------------------------------
+# Test that if the database is written to via the same database handle being
+# used as the source by a backup operation:
+#
+#   10.1.*: If the db is in-memory, the backup is restarted.
+#   10.2.*: If the db is a file, the backup is not restarted.
+#
+db close
+file delete -force test.db test.db-journal
+foreach {tn file rc} {
+  1 test.db  SQLITE_DONE
+  2 :memory: SQLITE_OK
+} {
+  do_test backup-10.$tn.1 {
+    sqlite3 db $file
+    execsql { 
+      CREATE TABLE t1(a INTEGER PRIMARY KEY, b BLOB);
+      BEGIN;
+        INSERT INTO t1 VALUES(NULL, randomblob(200));
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+        INSERT INTO t1 SELECT NULL, randomblob(200) FROM t1;
+      COMMIT;
+      SELECT count(*) FROM t1;
+    }
+  } {256}
+
+  do_test backup-10.$tn.2 {
+    set pgs [execsql {pragma page_count}]
+    expr {$pgs > 50 && $pgs < 75}
+  } {1}
+
+  do_test backup-10.$tn.3 {
+    file delete -force bak.db bak.db-journal
+    sqlite3 db2 bak.db
+    sqlite3_backup B db2 main db main
+    B step 50
+  } {SQLITE_OK}
+
+  do_test backup-10.$tn.4 {
+    execsql { UPDATE t1 SET b = randomblob(200) WHERE a IN (1, 250) }
+  } {}
+
+  do_test backup-10.$tn.5 {
+    B step 50
+  } $rc
+
+  do_test backup-10.$tn.6 {
+    B finish
+  } {SQLITE_OK}
+
+  db2 close
+}
+
 finish_test