Update sqlite to 3.7.3.

third_party/sqlite/src/test/analyze2.test

 # 2009 August 06
 #
 # 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 regression tests for SQLite library. This file 
 # implements tests for the extra functionality provided by the ANALYZE 
 # command when the library is compiled with SQLITE_ENABLE_STAT2 defined.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !stat2 {
   finish_test
   return
 }
 
+# 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).
+#
+do_not_use_codec
+
 #--------------------------------------------------------------------
 # Test organization:
 #
 # analyze2-1.*: Tests to verify that ANALYZE creates and populates the
 #               sqlite_stat2 table as expected.
 #
 # analyze2-2.*: Test that when a table has two indexes on it and either
 #               index may be used for the scan, the index suggested by
 #               the contents of sqlite_stat2 table is prefered.
 # 
@@ skipping 185 matching lines @@
   }
 } {t3 t3b {AbA CIj EIj GIj IIj bIj dIj fIj hIj jIj}}
 
 do_test analyze2-4.4 {
   eqp "SELECT * FROM t3 WHERE a > 'A' AND a < 'C' AND b > 'A' AND b < 'C'"
 } {0 0 {TABLE t3 WITH INDEX t3b}}
 do_test analyze2-4.5 {
   eqp "SELECT * FROM t3 WHERE a > 'A' AND a < 'c' AND b > 'A' AND b < 'c'"
 } {0 0 {TABLE t3 WITH INDEX t3a}}
 
-proc test_collate {enc lhs rhs} {
-  # puts $enc
-  return [string compare $lhs $rhs]
+ifcapable utf16 {
+  proc test_collate {enc lhs rhs} {
+    # puts $enc
+    return [string compare $lhs $rhs]
+  }
+  do_test analyze2-5.1 {
+    add_test_collate db 0 0 1
+    execsql { CREATE TABLE t4(x COLLATE test_collate) }
+    execsql { CREATE INDEX t4x ON t4(x) }
+    set alphabet [list a b c d e f g h i j]
+    execsql BEGIN
+    for {set i 0} {$i < 1000} {incr i} {
+      set str    [lindex $alphabet [expr ($i/100)%10]] 
+      append str [lindex $alphabet [expr ($i/ 10)%10]]
+      append str [lindex $alphabet [expr ($i/  1)%10]]
+      execsql { INSERT INTO t4 VALUES($str) }
+    }
+    execsql COMMIT
+    execsql ANALYZE
+  } {}
+  do_test analyze2-5.2 {
+    execsql { 
+      SELECT tbl,idx,group_concat(sample,' ') 
+      FROM sqlite_stat2 
+      WHERE tbl = 't4' 
+      GROUP BY tbl,idx
+    }
+  } {t4 t4x {afa bej cej dej eej fej gej hej iej jej}}
+  do_test analyze2-5.3 {
+    eqp "SELECT * FROM t4 WHERE x>'ccc'"
+  } {0 0 {TABLE t4 WITH INDEX t4x}}
+  do_test analyze2-5.4 {
+    eqp "SELECT * FROM t4 AS t41, t4 AS t42 WHERE t41.x>'ccc' AND t42.x>'ggg'"
+  } {0 1 {TABLE t4 AS t42 WITH INDEX t4x} 1 0 {TABLE t4 AS t41 WITH INDEX t4x}}
+  do_test analyze2-5.5 {
+    eqp "SELECT * FROM t4 AS t41, t4 AS t42 WHERE t41.x>'ddd' AND t42.x>'ccc'"
+  } {0 0 {TABLE t4 AS t41 WITH INDEX t4x} 1 1 {TABLE t4 AS t42 WITH INDEX t4x}}
 }
-do_test analyze2-5.1 {
-  add_test_collate db 0 0 1
-  execsql { CREATE TABLE t4(x COLLATE test_collate) }
-  execsql { CREATE INDEX t4x ON t4(x) }
-  set alphabet [list a b c d e f g h i j]
-  execsql BEGIN
-  for {set i 0} {$i < 1000} {incr i} {
-    set str    [lindex $alphabet [expr ($i/100)%10]] 
-    append str [lindex $alphabet [expr ($i/ 10)%10]]
-    append str [lindex $alphabet [expr ($i/  1)%10]]
-    execsql { INSERT INTO t4 VALUES($str) }
-  }
-  execsql COMMIT
-  execsql ANALYZE
-} {}
-do_test analyze2-5.2 {
-  execsql { 
-    SELECT tbl,idx,group_concat(sample,' ') 
-    FROM sqlite_stat2 
-    WHERE tbl = 't4' 
-    GROUP BY tbl,idx
-  }
-} {t4 t4x {afa bej cej dej eej fej gej hej iej jej}}
-do_test analyze2-5.3 {
-  eqp "SELECT * FROM t4 WHERE x>'ccc'"
-} {0 0 {TABLE t4 WITH INDEX t4x}}
-do_test analyze2-5.4 {
-  eqp "SELECT * FROM t4 AS t41, t4 AS t42 WHERE t41.x>'ccc' AND t42.x>'ggg'"
-} {0 1 {TABLE t4 AS t42 WITH INDEX t4x} 1 0 {TABLE t4 AS t41 WITH INDEX t4x}}
-do_test analyze2-5.5 {
-  eqp "SELECT * FROM t4 AS t41, t4 AS t42 WHERE t41.x>'ddd' AND t42.x>'ccc'"
-} {0 0 {TABLE t4 AS t41 WITH INDEX t4x} 1 1 {TABLE t4 AS t42 WITH INDEX t4x}}
 
 #--------------------------------------------------------------------
 # These tests, analyze2-6.*, verify that the library behaves correctly
 # when one of the sqlite_stat1 and sqlite_stat2 tables is missing.
 #
 # If the sqlite_stat1 table is not present, then the sqlite_stat2
 # table is not read. However, if it is the sqlite_stat2 table that
 # is missing, the data in the sqlite_stat1 table is still used.
 #
 # Tests analyze2-6.1.* test the libary when the sqlite_stat2 table
 # is missing. Tests analyze2-6.2.* test the library when sqlite_stat1
 # is not present.
 #
 do_test analyze2-6.0 {
   execsql {
-    DROP TABLE t4;
+    DROP TABLE IF EXISTS t4;
     CREATE TABLE t5(a, b); CREATE INDEX t5i ON t5(a, b);
     CREATE TABLE t6(a, b); CREATE INDEX t6i ON t6(a, b);
   }
   for {set ii 0} {$ii < 20} {incr ii} {
     execsql {
       INSERT INTO t5 VALUES($ii, $ii);
       INSERT INTO t6 VALUES($ii/10, $ii/10);
     }
   }
   execsql { 
@@ skipping 202 matching lines @@
           t6.a>1
     } db1
   } {0 0 {TABLE t5 WITH INDEX t5i} 1 1 {TABLE t6 USING PRIMARY KEY}}
 
   db1 close
   db2 close
   sqlite3_enable_shared_cache $::enable_shared_cache
 }
 
 finish_test