Import SQLite 3.7.6.3.

third_party/sqlite/src/test/vacuum.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 36 matching lines @@
     CREATE INDEX i1 ON t1(b,c);
     CREATE UNIQUE INDEX i2 ON t1(c,a);
     CREATE TABLE t2 AS SELECT * FROM t1;
     COMMIT;
     DROP TABLE t2;
   }
   set ::size1 [file size test.db]
   set ::cksum [cksum]
   expr {$::cksum!=""}
 } {1}
+
+# Create bogus application-defined functions for functions used 
+# internally by VACUUM, to ensure that VACUUM falls back
+# to the built-in functions.
+#
+proc failing_app_func {args} {error "bad function"}
+do_test vacuum-1.1b {
+  db func substr failing_app_func
+  db func like failing_app_func
+  db func quote failing_app_func
+  catchsql {SELECT substr(name,1,3) FROM sqlite_master}
+} {1 {bad function}}
+
 do_test vacuum-1.2 {
   execsql {
     VACUUM;
   }
   cksum
 } $cksum
 ifcapable vacuum {
   do_test vacuum-1.3 {
     expr {[file size test.db]<$::size1}
   } {1}
@@ skipping 213 matching lines @@
 # [file delete] command covers us in case the library was compiled
 # without in-memory database support.
 #
 file delete -force :memory:
 do_test vacuum-7.0 {
   sqlite3 db2 :memory:
   execsql {
     CREATE TABLE t1(t);
     VACUUM;
   } db2
+} {}
+do_test vacuum-7.1 {
   execsql {
     CREATE TABLE t2(t);
     CREATE TABLE t3(t);
     DROP TABLE t2;
+    PRAGMA freelist_count;
+  }
+} {1}
+do_test vacuum-7.2 {
+  execsql {
     VACUUM;
     pragma integrity_check;
   } db2
 } {ok}
+do_test vacuum-7.3 {
+  execsql { PRAGMA freelist_count; } db2
+} {0}
+ifcapable autovacuum {
+  do_test vacuum-7.4 {
+    execsql { PRAGMA auto_vacuum } db2
+  } {0}
+  do_test vacuum-7.5 {
+    execsql { PRAGMA auto_vacuum = 1} db2
+    execsql { PRAGMA auto_vacuum } db2
+  } {0}
+  do_test vacuum-7.6 {
+    execsql { PRAGMA auto_vacuum = 1} db2
+    execsql { VACUUM } db2
+    execsql { PRAGMA auto_vacuum } db2
+  } {1}
+}
 db2 close
 
 # Ticket #873.  VACUUM a database that has ' in its name.
 #
 do_test vacuum-8.1 {
   file delete -force a'z.db
   file delete -force a'z.db-journal
   sqlite3 db2 a'z.db
   execsql {
     CREATE TABLE t1(t);
@@ skipping 34 matching lines @@
     execsql {
       VACUUM;
     }
     cksum
   } $::cksum
 }
 
 file delete -force {a'z.db}
 
 finish_test