Index: third_party/sqlite/sqlite-src-3080704/test/e_reindex.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/e_reindex.test b/third_party/sqlite/sqlite-src-3080704/test/e_reindex.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..4b86787a05feac9af305a5aff2f833cc18771ac1 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/e_reindex.test |
@@ -0,0 +1,294 @@ |
+# 2010 September 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. |
+# |
+#*********************************************************************** |
+# |
+# This file implements tests to verify that the "testable statements" in |
+# the lang_reindex.html document are correct. |
+# |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+ |
+proc do_reindex_tests {args} { |
+ uplevel do_select_tests $args |
+} |
+ |
+do_execsql_test e_reindex-0.0 { |
+ CREATE TABLE t1(a, b); |
+ CREATE INDEX i1 ON t1(a, b); |
+ CREATE INDEX i2 ON t1(b, a); |
+} {} |
+ |
+# -- syntax diagram reindex-stmt |
+# |
+do_reindex_tests e_reindex-0.1 { |
+ 1 "REINDEX" {} |
+ 2 "REINDEX nocase" {} |
+ 3 "REINDEX binary" {} |
+ 4 "REINDEX t1" {} |
+ 5 "REINDEX main.t1" {} |
+ 6 "REINDEX i1" {} |
+ 7 "REINDEX main.i1" {} |
+} |
+ |
+# EVIDENCE-OF: R-52173-44778 The REINDEX command is used to delete and |
+# recreate indices from scratch. |
+# |
+# Test this by corrupting some database indexes, running REINDEX, and |
+# observing that the corruption is gone. |
+# |
+do_execsql_test e_reindex-1.1 { |
+ INSERT INTO t1 VALUES(1, 2); |
+ INSERT INTO t1 VALUES(3, 4); |
+ INSERT INTO t1 VALUES(5, 6); |
+ PRAGMA writable_schema = 1; |
+ UPDATE sqlite_master SET sql = '-- ' || sql WHERE type = 'index'; |
+} {} |
+ |
+db close |
+sqlite3 db test.db |
+do_execsql_test e_reindex-1.2 { |
+ DELETE FROM t1 WHERE a = 3; |
+ INSERT INTO t1 VALUES(7, 8); |
+ INSERT INTO t1 VALUES(9, 10); |
+ PRAGMA writable_schema = 1; |
+ UPDATE sqlite_master SET sql = substr(sql, 4) WHERE type = 'index'; |
+} {} |
+ |
+db close |
+sqlite3 db test.db |
+do_execsql_test e_reindex-1.3 { |
+ PRAGMA integrity_check; |
+} [list \ |
+ {row 3 missing from index i2} \ |
+ {row 3 missing from index i1} \ |
+ {row 4 missing from index i2} \ |
+ {row 4 missing from index i1} \ |
+ {wrong # of entries in index i2} \ |
+ {wrong # of entries in index i1} |
+] |
+ |
+do_execsql_test e_reindex-1.4 { |
+ REINDEX; |
+ PRAGMA integrity_check; |
+} {ok} |
+ |
+#------------------------------------------------------------------------- |
+# The remaining tests in this file focus on testing that the REINDEX |
+# command reindexes the correct subset of the indexes in the database. |
+# They all use the following dataset. |
+# |
+db close |
+forcedelete test.db2 |
+forcedelete test.db |
+sqlite3 db test.db |
+ |
+proc sort_by_length {lhs rhs} { |
+ set res [expr {[string length $lhs] - [string length $rhs]}] |
+ if {$res!=0} {return $res} |
+ return [string compare $lhs $rhs] |
+} |
+array set V {one 1 two 2 three 3 four 4 five 5 six 6 seven 7 eight 8} |
+proc sort_by_value {lhs rhs} { |
+ global V |
+ set res [expr {$V($lhs) - $V($rhs)}] |
+ if {$res!=0} {return $res} |
+ return [string compare $lhs $rhs] |
+} |
+ |
+db collate collA sort_by_length |
+db collate collB sort_by_value |
+ |
+set BY(length) {one six two five four eight seven three} |
+set BY(value) {one two three four five six seven eight} |
+ |
+do_execsql_test e_reindex-2.0 { |
+ ATTACH 'test.db2' AS aux; |
+ |
+ CREATE TABLE t1(x); |
+ CREATE INDEX i1_a ON t1(x COLLATE collA); |
+ CREATE INDEX i1_b ON t1(x COLLATE collB); |
+ INSERT INTO t1 VALUES('one'); |
+ INSERT INTO t1 VALUES('two'); |
+ INSERT INTO t1 VALUES('three'); |
+ INSERT INTO t1 VALUES('four'); |
+ INSERT INTO t1 VALUES('five'); |
+ INSERT INTO t1 VALUES('six'); |
+ INSERT INTO t1 VALUES('seven'); |
+ INSERT INTO t1 VALUES('eight'); |
+ |
+ CREATE TABLE t2(x); |
+ CREATE INDEX i2_a ON t2(x COLLATE collA); |
+ CREATE INDEX i2_b ON t2(x COLLATE collB); |
+ INSERT INTO t2 SELECT x FROM t1; |
+ |
+ CREATE TABLE aux.t1(x); |
+ CREATE INDEX aux.i1_a ON t1(x COLLATE collA); |
+ CREATE INDEX aux.i1_b ON t1(x COLLATE collB); |
+ INSERT INTO aux.t1 SELECT x FROM main.t1; |
+ |
+} {} |
+ |
+proc test_index {tn tbl collation expected} { |
+ set sql "SELECT x FROM $tbl ORDER BY x COLLATE $collation" |
+ uplevel do_execsql_test e_reindex-2.$tn [list $sql] [list $::BY($expected)] |
+} |
+ |
+proc set_collations {a b} { |
+ db collate collA "sort_by_$a" |
+ db collate collB "sort_by_$b" |
+} |
+ |
+test_index 1.1 t1 collA length |
+test_index 1.2 t1 collB value |
+test_index 1.3 t2 collA length |
+test_index 1.4 t2 collB value |
+test_index 1.5 aux.t1 collA length |
+test_index 1.6 aux.t1 collB value |
+ |
+ |
+# EVIDENCE-OF: R-47362-07898 If the REINDEX keyword is not followed by a |
+# collation-sequence or database object identifier, then all indices in |
+# all attached databases are rebuilt. |
+# |
+set_collations value length |
+do_execsql_test e_reindex-2.2.1 "REINDEX" {} |
+test_index 2.2 t1 collA value |
+test_index 2.3 t1 collB length |
+test_index 2.4 t2 collA value |
+test_index 2.5 t2 collB length |
+test_index 2.6 aux.t1 collA value |
+test_index 2.7 aux.t1 collB length |
+ |
+# EVIDENCE-OF: R-45878-07697 If the REINDEX keyword is followed by a |
+# collation-sequence name, then all indices in all attached databases |
+# that use the named collation sequences are recreated. |
+# |
+set_collations length value |
+do_execsql_test e_reindex-2.3.1 "REINDEX collA" {} |
+test_index 3.2 t1 collA length |
+test_index 3.3 t1 collB length |
+test_index 3.4 t2 collA length |
+test_index 3.5 t2 collB length |
+test_index 3.6 aux.t1 collA length |
+test_index 3.7 aux.t1 collB length |
+do_execsql_test e_reindex-2.3.8 "REINDEX collB" {} |
+test_index 3.9 t1 collA length |
+test_index 3.10 t1 collB value |
+test_index 3.11 t2 collA length |
+test_index 3.12 t2 collB value |
+test_index 3.13 aux.t1 collA length |
+test_index 3.14 aux.t1 collB value |
+ |
+# EVIDENCE-OF: R-49616-30196 Or, if the argument attached to the REINDEX |
+# identifies a specific database table, then all indices attached to the |
+# database table are rebuilt. |
+# |
+set_collations value length |
+do_execsql_test e_reindex-2.4.1 "REINDEX t1" {} |
+test_index 4.2 t1 collA value |
+test_index 4.3 t1 collB length |
+test_index 4.4 t2 collA length |
+test_index 4.5 t2 collB value |
+test_index 4.6 aux.t1 collA length |
+test_index 4.7 aux.t1 collB value |
+do_execsql_test e_reindex-2.4.8 "REINDEX aux.t1" {} |
+test_index 4.9 t1 collA value |
+test_index 4.10 t1 collB length |
+test_index 4.11 t2 collA length |
+test_index 4.12 t2 collB value |
+test_index 4.13 aux.t1 collA value |
+test_index 4.14 aux.t1 collB length |
+do_execsql_test e_reindex-2.4.15 "REINDEX t2" {} |
+test_index 4.16 t1 collA value |
+test_index 4.17 t1 collB length |
+test_index 4.18 t2 collA value |
+test_index 4.19 t2 collB length |
+test_index 4.20 aux.t1 collA value |
+test_index 4.21 aux.t1 collB length |
+ |
+# EVIDENCE-OF: R-58823-28748 If it identifies a specific database index, |
+# then just that index is recreated. |
+# |
+set_collations length value |
+do_execsql_test e_reindex-2.5.1 "REINDEX i1_a" {} |
+test_index 5.2 t1 collA length |
+test_index 5.3 t1 collB length |
+test_index 5.4 t2 collA value |
+test_index 5.5 t2 collB length |
+test_index 5.6 aux.t1 collA value |
+test_index 5.7 aux.t1 collB length |
+do_execsql_test e_reindex-2.5.8 "REINDEX i2_b" {} |
+test_index 5.9 t1 collA length |
+test_index 5.10 t1 collB length |
+test_index 5.11 t2 collA value |
+test_index 5.12 t2 collB value |
+test_index 5.13 aux.t1 collA value |
+test_index 5.14 aux.t1 collB length |
+do_execsql_test e_reindex-2.5.15 "REINDEX aux.i1_b" {} |
+test_index 5.16 t1 collA length |
+test_index 5.17 t1 collB length |
+test_index 5.18 t2 collA value |
+test_index 5.19 t2 collB value |
+test_index 5.20 aux.t1 collA value |
+test_index 5.21 aux.t1 collB value |
+do_execsql_test e_reindex-2.5.22 "REINDEX i1_b" {} |
+test_index 5.23 t1 collA length |
+test_index 5.24 t1 collB value |
+test_index 5.25 t2 collA value |
+test_index 5.26 t2 collB value |
+test_index 5.27 aux.t1 collA value |
+test_index 5.28 aux.t1 collB value |
+do_execsql_test e_reindex-2.5.29 "REINDEX i2_a" {} |
+test_index 5.30 t1 collA length |
+test_index 5.31 t1 collB value |
+test_index 5.32 t2 collA length |
+test_index 5.33 t2 collB value |
+test_index 5.34 aux.t1 collA value |
+test_index 5.35 aux.t1 collB value |
+do_execsql_test e_reindex-2.5.36 "REINDEX aux.i1_a" {} |
+test_index 5.37 t1 collA length |
+test_index 5.38 t1 collB value |
+test_index 5.39 t2 collA length |
+test_index 5.40 t2 collB value |
+test_index 5.41 aux.t1 collA length |
+test_index 5.42 aux.t1 collB value |
+ |
+# EVIDENCE-OF: R-15639-02023 If no database-name is specified and there |
+# exists both a table or index and a collation sequence of the specified |
+# name, SQLite interprets this as a request to rebuild the indices that |
+# use the named collation sequence. |
+# |
+set_collations value length |
+do_execsql_test e_reindex-2.6.0 { |
+ CREATE TABLE collA(x); |
+ CREATE INDEX icolla_a ON collA(x COLLATE collA); |
+ CREATE INDEX icolla_b ON collA(x COLLATE collB); |
+ |
+ INSERT INTO collA SELECT x FROM t1; |
+} {} |
+ |
+test_index 6.1 collA collA value |
+test_index 6.2 collA collB length |
+ |
+set_collations length value |
+do_execsql_test e_reindex-2.6.3 "REINDEX collA" {} |
+test_index 6.4 collA collA length |
+test_index 6.5 collA collB length |
+do_execsql_test e_reindex-2.6.3 "REINDEX main.collA" {} |
+test_index 6.4 collA collA length |
+test_index 6.5 collA collB value |
+ |
+set_collations value length |
+do_execsql_test e_reindex-2.6.6 "REINDEX main.collA" {} |
+test_index 6.7 collA collA value |
+test_index 6.8 collA collB length |
+ |
+finish_test |