[sql] Import SQLite 3.17.0.

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 108 matching lines @@
     }
   }
 
   db close
   forcedelete test.db test.db-journal
 
   sqlite3 db test.db
   execsql "PRAGMA mmap_size = 0"
   execsql "PRAGMA auto_vacuum = $AutoVacuumMode"
 
+  # Extra value added to size answers
+  set ib2_extra 0
+  if {$AutoVacuumMode} {incr ib2_extra}
+  if {[nonzero_reserved_bytes]} {incr ib2_extra}
+
   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]
+  } [expr 31 + $ib2_extra]
 
   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]
+  } [expr $AutoVacuumMode ? 4 : 30+$ib2_extra]
 
   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]
+  } [expr $AutoVacuumMode ? 4 : 30 + $ib2_extra]
 
   # 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]
+  } [expr $AutoVacuumMode ? 4 : 30 + $ib2_extra]
 }
 sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
 #------------------------------------------------------------------------
 # incrblob-3.*: 
 #
 # Test the outcome of trying to write to a read-only blob handle.
 #
 do_test incrblob-3.1 {
   set ::blob [db incrblob -readonly blobs v 1]
@@ skipping 153 matching lines @@
 
 
 #------------------------------------------------------------------------
 # incrblob-5.*: 
 #
 #     Test that opening a blob in an attached database works.
 #
 ifcapable attach {
   do_test incrblob-5.1 {
     forcedelete test2.db test2.db-journal
-    set ::size [expr [file size [info script]]]
+    set ::size [expr [file size $::cmdlinearg(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]]
+    set fd2 [open $::cmdlinearg(INFO_SCRIPT)]
     fconfigure $fd2 -translation binary
     puts -nonewline $fd [read $fd2]
     close $fd
     close $fd2
     set ::text [db one {select text from aux.files}]
     string length $::text
-  } [file size [info script]]
+  } [file size $::cmdlinearg(INFO_SCRIPT)]
   do_test incrblob-5.2 {
-    set fd2 [open [info script]]
+    set fd2 [open $::cmdlinearg(INFO_SCRIPT)]
     fconfigure $fd2 -translation binary
     set ::data [read $fd2]
     close $fd2
     set ::data
   } $::text
 }
 
 # free memory
 unset -nocomplain ::data
 unset -nocomplain ::text
@@ skipping 154 matching lines @@
     list $rc $msg
   } {0 {}}
   do_test incrblob-7.1.$tn.6 {
     execsql {
       SELECT d FROM t1;
     }
   } {15}
 
 }
 
-set fd [open [info script]]
+set fd [open $::cmdlinearg(INFO_SCRIPT)]
 fconfigure $fd -translation binary
 set ::data [read $fd 14000]
 close $fd
 
 db close
 forcedelete test.db test.db-journal
 sqlite3 db test.db
 
 do_test incrblob-7.2.1 {
   execsql {
@@ skipping 89 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