[sql] Import SQLite 3.17.0.

third_party/sqlite/src/ext/fts5/test/fts5corrupt2.test

 # 2015 Apr 24
 #
 # 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 19 matching lines @@
 expr srand(0)
 db func rnddoc fts5_rnddoc
 do_execsql_test 1.0 {
   CREATE VIRTUAL TABLE t1 USING fts5(x);
   INSERT INTO t1(t1, rank) VALUES('pgsz', 32);
   WITH ii(i) AS (SELECT 1 UNION SELECT i+1 FROM ii WHERE i<100)
   INSERT INTO t1 SELECT rnddoc(10) FROM ii;
 }
 set mask [expr 31 << 31]
 
-if 1 {
+if 0 {
 
 # Test 1:
 #
 #   For each page in the t1_data table, open a transaction and DELETE
 #   the t1_data entry. Then run:
 #
 #     * an integrity-check, and
 #     * unless the deleted block was a b-tree node, a query for "t1 MATCH 'x*'"
 #
 #   and check that the corruption is detected in both cases. The 
@@ skipping 26 matching lines @@
       } {1 {database disk image is malformed}}
     }
   
     do_execsql_test 1.$tno.$tn.3.$rowid {
       ROLLBACK;
       INSERT INTO t1(t1) VALUES('integrity-check');
     } {}
   }
 }
 
+}
+
 # Using the same database as the 1.* tests.
 #
 # Run N-1 tests, where N is the number of bytes in the rightmost leaf page
 # of the fts index. For test $i, truncate the rightmost leafpage to $i
 # bytes. Then test both the integrity-check detects the corruption.
 #
 # Also tested is that "MATCH 'x*'" does not crash and sometimes reports
 # corruption. It may not report the db as corrupt because truncating the
 # final leaf to some sizes may create a valid leaf page.
 #
@@ skipping 108 matching lines @@
       if {$res == "1 {database disk image is malformed}"} {incr nCorrupt}
       set {} 1
     } {1}
 
     execsql ROLLBACK
   }
 
   # do_test 4.$tn.x { expr $nCorrupt>0 } 1
 }
 
-}
-
 set doc [string repeat "A B C " 1000]
 do_execsql_test 5.0 {
   CREATE VIRTUAL TABLE x5 USING fts5(tt);
   INSERT INTO x5(x5, rank) VALUES('pgsz', 32);
   WITH ii(i) AS (SELECT 1 UNION ALL SELECT i+1 FROM ii WHERE i<10) 
   INSERT INTO x5 SELECT $doc FROM ii;
 }
 
 foreach {tn hdr} {
   1 "\x00\x01"
@@ skipping 36 matching lines @@
 sqlite3_fts5_create_function db colsize colsize
 
 do_catchsql_test 6.2 {
   SELECT colsize(x5, 0) FROM x5 WHERE x5 MATCH 'a'
 } {1 SQLITE_CORRUPT_VTAB}
 
 
 sqlite3_fts5_may_be_corrupt 0
 finish_test