Import SQLite 3.8.7.4.

third_party/sqlite/src/test/e_reindex.test

 # 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);
 } {}
 
-# EVIDENCE-OF: R-57021-15304 -- syntax diagram reindex-stmt
+#  -- 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"   {}
-  4   "REINDEX i1"        {}
-  5   "REINDEX main.i1"   {}
+  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);
@@ skipping 11 matching lines @@
   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 \
-  {rowid 4 missing from index i2} \
-  {rowid 4 missing from index i1} \
-  {rowid 5 missing from index i2} \
-  {rowid 5 missing from index i1} \
+  {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)}]
+  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}
 
@@ skipping 173 matching lines @@
 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