[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/autovacuum.test

 # 2001 September 15
 #
 # 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 251 matching lines @@
   }
   file_pages
 } {15}
 do_test autovacuum-2.4.3 {
   execsql {
     SELECT rootpage FROM sqlite_master ORDER by rootpage
   }
 } {3 4 5 6 7 8 9 10}
 
 # Right now there are 5 free pages in the database. Consume and then free
-# a 520 pages. Then create 520 tables. This ensures that at least some of the
+# all 520 pages. Then create 520 tables. This ensures that at least some of the
 # desired root-pages reside on the second free-list trunk page, and that the
 # trunk itself is required at some point.
 do_test autovacuum-2.4.4 {
   execsql "
     INSERT INTO av3 VALUES ('[make_str abcde [expr 1020*520 + 500]]');
     DELETE FROM av3;
   "
 } {}
 set root_page_list [list]
 set pending_byte_page [expr ($::sqlite_pending_byte / 1024) + 1]
+
+# unusable_pages
+# These are either the pending_byte page or the pointer map pages
+#
+unset -nocomplain unusable_page
+if {[sqlite3 -has-codec]} {
+  array set unusable_page {205 1 408 1}
+} else {
+  array set unusable_page {207 1 412 1}
+}
+set unusable_page($pending_byte_page) 1
+
 for {set i 3} {$i<=532} {incr i} {
-  # 207 and 412 are pointer-map pages.
-  if { $i!=207 && $i!=412 && $i != $pending_byte_page} {
+  if {![info exists unusable_page($i)]} {
     lappend root_page_list $i
   }
 }
 if {$i >= $pending_byte_page} {
   lappend root_page_list $i
 }
 do_test autovacuum-2.4.5 {
   for {set i 11} {$i<=530} {incr i} {
     execsql "CREATE TABLE av$i (x)"
   }
@@ skipping 393 matching lines @@
 do_test autovacuum-9.4 {
   execsql { INSERT INTO t1 SELECT NULL, randstr(50,50) FROM t1 }
 } {}
 do_test autovacuum-9.5 {
   execsql { DELETE FROM t1 WHERE rowid > (SELECT max(a)/2 FROM t1) }
   file size test.db
 } $::sqlite_pending_byte
  
 
 finish_test