Import SQLite 3.8.7.4.

third_party/sqlite/src/test/incrblob.test

 # 2007 May 1
 #
 # 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 102 matching lines @@
 
 foreach AutoVacuumMode [list 0 1] {
 
   if {$AutoVacuumMode>0} {
     ifcapable !autovacuum {
       break
     }
   }
 
   db close
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
 
   sqlite3 db test.db
+  execsql "PRAGMA mmap_size = 0"
   execsql "PRAGMA auto_vacuum = $AutoVacuumMode"
 
   do_test incrblob-2.$AutoVacuumMode.1 {
     set ::str [string repeat abcdefghij 2900]
     execsql {
       BEGIN;
       CREATE TABLE blobs(k PRIMARY KEY, v BLOB, i INTEGER);
       DELETE FROM blobs;
       INSERT INTO blobs VALUES('one', $::str || randstr(500,500), 45);
       COMMIT;
     }
     expr [file size test.db]/1024
   } [expr 31 + $AutoVacuumMode]
 
   ifcapable autovacuum {
     do_test incrblob-2.$AutoVacuumMode.2 {
       execsql {
         PRAGMA auto_vacuum;
       }
     } $AutoVacuumMode
   }
 
   do_test incrblob-2.$AutoVacuumMode.3 {
     # Open and close the db to make sure the page cache is empty.
     db close
     sqlite3 db test.db
+    execsql "PRAGMA mmap_size = 0"
   
     # Read the last 20 bytes of the blob via a blob handle.
     set ::blob [db incrblob blobs v 1]
     seek $::blob -20 end
     set ::fragment [read $::blob]
     close $::blob
   
     # If the database is not in auto-vacuum mode, the whole of
     # the overflow-chain must be scanned. In auto-vacuum mode,
     # sqlite uses the ptrmap pages to avoid reading the other pages.
     #
     nRead db
   } [expr $AutoVacuumMode ? 4 : 30]
 
   do_test incrblob-2.$AutoVacuumMode.4 {
     string range [db one {SELECT v FROM blobs}] end-19 end
   } $::fragment
 
   do_test incrblob-2.$AutoVacuumMode.5 {
     # Open and close the db to make sure the page cache is empty.
     db close
     sqlite3 db test.db
+    execsql "PRAGMA mmap_size = 0"
   
     # Write the second-to-last 20 bytes of the blob via a blob handle.
     #
     set ::blob [db incrblob blobs v 1]
     seek $::blob -40 end
     puts -nonewline $::blob "1234567890abcdefghij"
     flush $::blob
   
     # If the database is not in auto-vacuum mode, the whole of
     # the overflow-chain must be scanned. In auto-vacuum mode,
     # sqlite uses the ptrmap pages to avoid reading the other pages.
     #
     nRead db
   } [expr $AutoVacuumMode ? 4 : 30]
 
   # Pages 1 (the write-counter) and 32 (the blob data) were written.
   do_test incrblob-2.$AutoVacuumMode.6 {
     close $::blob
     nWrite db
   } 2
 
   do_test incrblob-2.$AutoVacuumMode.7 {
     string range [db one {SELECT v FROM blobs}] end-39 end-20
   } "1234567890abcdefghij"
 
   do_test incrblob-2.$AutoVacuumMode.8 {
     # Open and close the db to make sure the page cache is empty.
     db close
     sqlite3 db test.db
+    execsql { PRAGMA mmap_size = 0 }
 
     execsql { SELECT i FROM blobs } 
   } {45}
 
   do_test incrblob-2.$AutoVacuumMode.9 {
     nRead db
   } [expr $AutoVacuumMode ? 4 : 30]
 }
 sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
@@ skipping 159 matching lines @@
 }
 
 
 #------------------------------------------------------------------------
 # incrblob-5.*: 
 #
 #     Test that opening a blob in an attached database works.
 #
 ifcapable attach {
   do_test incrblob-5.1 {
-    file delete -force test2.db test2.db-journal
+    forcedelete test2.db test2.db-journal
     set ::size [expr [file size [info script]]]
     execsql {
       ATTACH 'test2.db' AS aux;
       CREATE TABLE aux.files(name, text);
       INSERT INTO aux.files VALUES('this one', zeroblob($::size));
     }
     set fd  [db incrblob aux files text 1]
     fconfigure $fd -translation binary
     set fd2 [open [info script]]
     fconfigure $fd2 -translation binary
@@ skipping 37 matching lines @@
 if {[permutation] != "memsubsys1"} {
   do_test incrblob-6.1 {
     sqlite3 db2 test.db
     execsql {
       BEGIN;
       INSERT INTO blobs(k, v, i) VALUES('a', 'different', 'connection');
     } db2
   } {}
   do_test incrblob-6.2 {
     execsql {
-      SELECT rowid FROM blobs
+      SELECT rowid FROM blobs ORDER BY rowid
     }
   } {1 2 3}
   do_test incrblob-6.3 {
     set rc [catch {
       db incrblob blobs v 1
     } msg]
     list $rc $msg
   } {1 {database is locked}}
   do_test incrblob-6.4 {
     set rc [catch {
@@ skipping 15 matching lines @@
   } {connection}
   do_test incrblob-6.8 {
     tell $::blob
   } {10}
   do_test incrblob-6.9 {
     seek $::blob 0
     puts -nonewline $::blob "invocation"
     flush $::blob
   } {}
   
-  # At this point rollback should be illegal (because 
-  # there is an open blob channel).  But commit is also illegal because
-  # the open blob is read-write.
+  # At this point commit should be illegal (because 
+  # there is an open blob channel).
   #
-  do_test incrblob-6.10 {
-    catchsql {
-      ROLLBACK;
-    } db2
-  } {1 {cannot rollback transaction - SQL statements in progress}}
   do_test incrblob-6.11 {
     catchsql {
       COMMIT;
     } db2
   } {1 {cannot commit transaction - SQL statements in progress}}
   
   do_test incrblob-6.12 {
     execsql {
       SELECT * FROM blobs WHERE rowid = 4;
     }
   } {}
   do_test incrblob-6.13 {
     close $::blob
   } {}
   do_test incrblob-6.14 {
     catchsql {
       COMMIT;
     } db2
   } {0 {}}
   do_test incrblob-6.15 {
     execsql {
       SELECT * FROM blobs WHERE rowid = 4;
     }
   } {a different invocation}
   db2 close
 }
 sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
 #-----------------------------------------------------------------------
-# The following tests verify the behaviour of the incremental IO
+# The following tests verify the behavior of the incremental IO
 # APIs in the following cases:
 #
 #     7.1 A row that containing an open blob is modified.
 #
 #     7.2 A CREATE TABLE requires that an overflow page that is part
 #         of an open blob is moved.
 #
 #     7.3 An INCREMENTAL VACUUM moves an overflow page that is part
 #         of an open blob.
 #
-# In the first case above, correct behaviour is for all subsequent
+# In the first case above, correct behavior is for all subsequent
 # read/write operations on the blob-handle to return SQLITE_ABORT.
 # More accurately, blob-handles are invalidated whenever the table
 # they belong to is written to.
 #
 # The second two cases have no external effect. They are testing
 # that the internal cache of overflow page numbers is correctly
 # invalidated.
 #
 do_test incrblob-7.1.0 {
   execsql {
@@ skipping 41 matching lines @@
   } {15}
 
 }
 
 set fd [open [info script]]
 fconfigure $fd -translation binary
 set ::data [read $fd 14000]
 close $fd
 
 db close
-file delete -force test.db test.db-journal
+forcedelete test.db test.db-journal
 sqlite3 db test.db
 
 do_test incrblob-7.2.1 {
   execsql {
     PRAGMA auto_vacuum = "incremental";
     CREATE TABLE t1(a INTEGER PRIMARY KEY, b);        -- root@page3
     INSERT INTO t1 VALUES(123, $::data);
   }
   set ::b [db incrblob -readonly t1 b 123]
   fconfigure $::b -translation binary
@@ skipping 83 matching lines @@
 # an error message was set using a call similar to sqlite3_mprintf(zErr),
 # where zErr is an arbitrary string. This is no good if the string contains
 # characters that can be mistaken for printf() formatting directives.
 #
 do_test incrblob-9.1 {
   list [catch { db incrblob t1 "A tricky column name %s%s" 1 } msg] $msg
 } {1 {no such column: "A tricky column name %s%s"}}
 
 
 finish_test