Index: third_party/sqlite/sqlite-src-3170000/ext/fts5/test/fts5corrupt.test |
diff --git a/third_party/sqlite/sqlite-src-3170000/ext/fts5/test/fts5corrupt.test b/third_party/sqlite/sqlite-src-3170000/ext/fts5/test/fts5corrupt.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..edaafb23793c1527318534ebd194ca15726b2d9c |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3170000/ext/fts5/test/fts5corrupt.test |
@@ -0,0 +1,99 @@ |
+# 2014 Dec 20 |
+# |
+# 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. |
+# |
+#*********************************************************************** |
+# |
+# This file tests that the FTS5 'integrity-check' command detects |
+# inconsistencies (corruption) in the on-disk backing tables. |
+# |
+ |
+source [file join [file dirname [info script]] fts5_common.tcl] |
+set testprefix fts5corrupt |
+ |
+# If SQLITE_ENABLE_FTS5 is defined, omit this file. |
+ifcapable !fts5 { |
+ finish_test |
+ return |
+} |
+ |
+do_execsql_test 1.0 { |
+ CREATE VIRTUAL TABLE t1 USING fts5(x); |
+ INSERT INTO t1(t1, rank) VALUES('pgsz', 32); |
+} |
+ |
+do_test 1.1 { |
+ db transaction { |
+ for {set i 1} {$i < 200} {incr i} { |
+ set doc [list [string repeat x $i] [string repeat y $i]] |
+ execsql { INSERT INTO t1(rowid, x) VALUES($i, $doc) } |
+ } |
+ } |
+ fts5_level_segs t1 |
+} {1} |
+db_save |
+ |
+do_execsql_test 1.2 { INSERT INTO t1(t1) VALUES('integrity-check') } |
+set segid [lindex [fts5_level_segids t1] 0] |
+ |
+do_test 1.3 { |
+ execsql { |
+ DELETE FROM t1_data WHERE rowid = fts5_rowid('segment', $segid, 4); |
+ } |
+ catchsql { INSERT INTO t1(t1) VALUES('integrity-check') } |
+} {1 {database disk image is malformed}} |
+ |
+do_test 1.4 { |
+ db_restore_and_reopen |
+ execsql { |
+ UPDATE t1_data set block = X'00000000' || substr(block, 5) WHERE |
+ rowid = fts5_rowid('segment', $segid, 4); |
+ } |
+ catchsql { INSERT INTO t1(t1) VALUES('integrity-check') } |
+} {1 {database disk image is malformed}} |
+ |
+db_restore_and_reopen |
+#db eval {SELECT rowid, fts5_decode(rowid, block) aS r FROM t1_data} {puts $r} |
+ |
+ |
+#-------------------------------------------------------------------- |
+# |
+do_execsql_test 2.0 { |
+ CREATE VIRTUAL TABLE t2 USING fts5(x); |
+ INSERT INTO t2(t2, rank) VALUES('pgsz', 64); |
+} |
+db func rnddoc fts5_rnddoc |
+do_test 2.1 { |
+ for {set i 0} {$i < 500} {incr i} { |
+ execsql { INSERT INTO t2 VALUES(rnddoc(50)) } |
+ } |
+ execsql { INSERT INTO t2(t2) VALUES('integrity-check') } |
+} {} |
+ |
+#-------------------------------------------------------------------- |
+# A mundane test - missing row in the %_content table. |
+# |
+do_execsql_test 3.0 { |
+ CREATE VIRTUAL TABLE t3 USING fts5(x); |
+ INSERT INTO t3 VALUES('one o'); |
+ INSERT INTO t3 VALUES('two e'); |
+ INSERT INTO t3 VALUES('three o'); |
+ INSERT INTO t3 VALUES('four e'); |
+ INSERT INTO t3 VALUES('five o'); |
+} |
+do_execsql_test 3.1 { |
+ SELECT * FROM t3 WHERE t3 MATCH 'o' |
+} {{one o} {three o} {five o}} |
+ |
+do_catchsql_test 3.1 { |
+ DELETE FROM t3_content WHERE rowid = 3; |
+ SELECT * FROM t3 WHERE t3 MATCH 'o'; |
+} {1 {database disk image is malformed}} |
+ |
+finish_test |
+ |