[sql] Import reference version of SQLite 3.10.2.

third_party/sqlite/sqlite-src-3100200/test/corrupt2.test

Index: third_party/sqlite/sqlite-src-3100200/test/corrupt2.test
diff --git a/third_party/sqlite/src/test/corrupt2.test b/third_party/sqlite/sqlite-src-3100200/test/corrupt2.test
similarity index 93%
copy from third_party/sqlite/src/test/corrupt2.test
copy to third_party/sqlite/sqlite-src-3100200/test/corrupt2.test
index 805a6148f0b4d8e48d0eb99b7475dde1bd140d55..9bd29cf90fb6880c5e8eb8ce45f1dde781df942c 100644
--- a/third_party/sqlite/src/test/corrupt2.test
+++ b/third_party/sqlite/sqlite-src-3100200/test/corrupt2.test
@@ -17,6 +17,7 @@
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+set testprefix corrupt2
 
 # Do not use a codec for tests in this file, as the database file is
 # manipulated directly using tcl scripts (using the [hexio_write] command).
@@ -249,7 +250,6 @@ do_test corrupt2-5.1 {
   set result
 } {{*** in database main ***
 On tree page 2 cell 0: 2nd reference to page 10
-On tree page 2 cell 1: Child page depth differs
 Page 4 is never used}}
 
 db2 close
@@ -559,4 +559,51 @@ ifcapable autovacuum {
   }
 }
 
+#-------------------------------------------------------------------------
+# Test that PRAGMA integrity_check detects cases where the freelist-count
+# header field is smaller than the actual number of pages on the freelist.
+#
+
+reset_db
+do_execsql_test 14.0 {
+  PRAGMA auto_vacuum = 0;
+  CREATE TABLE t1(x);
+  INSERT INTO t1 VALUES(randomblob(3500));
+  DELETE FROM t1;
+}
+
+do_execsql_test 14.1 {
+  PRAGMA integrity_check;
+  PRAGMA freelist_count;
+} {ok 3}
+
+# There are now 3 free pages. Modify the header-field so that it 
+# (incorrectly) says that just 2 are free.
+do_test 14.2 {
+  db close
+  hexio_write test.db 36 [hexio_render_int32 2]
+  sqlite3 db test.db
+  execsql { PRAGMA freelist_count }
+} {2}
+
+do_execsql_test 14.3 {
+  PRAGMA integrity_check;
+} {{*** in database main ***
+Main freelist: free-page count in header is too small}}
+
+# Use 2 of the free pages on the free-list.
+#
+do_execsql_test 14.4 {
+  INSERT INTO t1 VALUES(randomblob(2500));
+  PRAGMA freelist_count;
+} {0}
+
+do_execsql_test 14.5 {
+  PRAGMA integrity_check;
+} {{*** in database main ***
+Page 3 is never used}}
+
+
+finish_test
+
 finish_test