[sql] Import SQLite 3.17.0.

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

 # 2014 June 17
 #
 # 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.  The
 # focus of this script is testing the FTS5 module.
 #
 #
 
 source [file join [file dirname [info script]] fts5_common.tcl]
 set testprefix fts5ab
 
 # If SQLITE_ENABLE_FTS5 is defined, omit this file.
 ifcapable !fts5 {
   finish_test
   return
 }
 
+foreach_detail_mode $testprefix {
+
 do_execsql_test 1.0 {
-  CREATE VIRTUAL TABLE t1 USING fts5(a, b);
+  CREATE VIRTUAL TABLE t1 USING fts5(a, b, detail=%DETAIL%);
   INSERT INTO t1 VALUES('hello', 'world');
   INSERT INTO t1 VALUES('one two', 'three four');
   INSERT INTO t1(rowid, a, b) VALUES(45, 'forty', 'five');
 }
 
 do_execsql_test 1.1 {
   SELECT * FROM t1 ORDER BY rowid DESC;
 } { forty five {one two} {three four} hello world }
 
 do_execsql_test 1.2 {
@@ skipping 13 matching lines @@
 } {}
 
 do_execsql_test 1.6 {
   SELECT * FROM t1 WHERE rowid=1.99;
 } {}
 
 #-------------------------------------------------------------------------
 
 reset_db
 do_execsql_test 2.1 {
-  CREATE VIRTUAL TABLE t1 USING fts5(x);
+  CREATE VIRTUAL TABLE t1 USING fts5(x, detail=%DETAIL%);
   INSERT INTO t1(t1, rank) VALUES('pgsz', 32);
   INSERT INTO t1 VALUES('one');
   INSERT INTO t1 VALUES('two');
   INSERT INTO t1 VALUES('three');
 }
 
 do_catchsql_test 2.2 {
   SELECT rowid, * FROM t1 WHERE t1 MATCH 'AND AND'
 } {1 {fts5: syntax error near "AND"}}
 
@@ skipping 81 matching lines @@
   do_execsql_test 3.4.$tn {
     SELECT rowid FROM t1 WHERE t1 MATCH $expr
   } $res
 }
 
 #-------------------------------------------------------------------------
 # Documents with more than 2M tokens.
 #
 
 do_execsql_test 4.0 {
-  CREATE VIRTUAL TABLE s1 USING fts5(x);
+  CREATE VIRTUAL TABLE s1 USING fts5(x, detail=%DETAIL%);
 }
 foreach {tn doc} [list \
   1 [string repeat {a x } 1500000]       \
   2 "[string repeat {a a } 1500000] x"   \
 ] {
   do_execsql_test 4.$tn { INSERT INTO s1 VALUES($doc) }
 }
 
 do_execsql_test 4.3 {
   SELECT rowid FROM s1 WHERE s1 MATCH 'x'
 } {1 2}
 
-do_execsql_test 4.4 {
-  SELECT rowid FROM s1 WHERE s1 MATCH '"a x"'
+if {[detail_is_full]} {
+  do_execsql_test 4.4 {
+    SELECT rowid FROM s1 WHERE s1 MATCH '"a x"'
+  } {1 2}
+}
+
+do_execsql_test 4.5 {
+  SELECT rowid FROM s1 WHERE s1 MATCH 'a x'
 } {1 2}
 
 #-------------------------------------------------------------------------
 # Check that a special case of segment promotion works. The case is where
 # a new segment is written to level L, but the oldest segment within level
 # (L-2) is larger than it.
 #
 do_execsql_test 5.0 {
-  CREATE VIRTUAL TABLE s2 USING fts5(x);
+  CREATE VIRTUAL TABLE s2 USING fts5(x, detail=%DETAIL%);
   INSERT INTO s2(s2, rank) VALUES('pgsz', 32);
   INSERT INTO s2(s2, rank) VALUES('automerge', 0);
 }
 
 proc rnddoc {n} {
   set map [list 0 a  1 b  2 c  3 d  4 e  5 f  6 g  7 h  8 i  9 j]
   set doc [list]
   for {set i 0} {$i < $n} {incr i} {
     lappend doc [string map $map [format %.3d [expr int(rand()*1000)]]]
   }
@@ skipping 19 matching lines @@
     execsql { INSERT INTO s2 VALUES(rnddoc(50)) }
   }
   fts5_level_segs s2
 } {8 0 0}
 
 # Test also the other type of segment promotion - when a new segment is written
 # that is larger than segments immediately following it.
 do_test 5.3 {
   execsql {
     DROP TABLE s2;
-    CREATE VIRTUAL TABLE s2 USING fts5(x);
+    CREATE VIRTUAL TABLE s2 USING fts5(x, detail=%DETAIL%);
     INSERT INTO s2(s2, rank) VALUES('pgsz', 32);
     INSERT INTO s2(s2, rank) VALUES('automerge', 0);
   }
 
   for {set i 1} {$i <= 16} {incr i} {
     execsql { INSERT INTO s2 VALUES(rnddoc(5)) }
   }
   fts5_level_segs s2
 } {0 1}
 
 do_test 5.4 {
   execsql { INSERT INTO s2 VALUES(rnddoc(160)) }
   fts5_level_segs s2
 } {2 0}
 
 #-------------------------------------------------------------------------
 #
 do_execsql_test 6.0 {
-  CREATE VIRTUAL TABLE s3 USING fts5(x);
+  CREATE VIRTUAL TABLE s3 USING fts5(x, detail=%DETAIL%);
   BEGIN;
     INSERT INTO s3 VALUES('a b c');
     INSERT INTO s3 VALUES('A B C');
 }
 
 do_execsql_test 6.1.1 {
   SELECT rowid FROM s3 WHERE s3 MATCH 'a'
 } {1 2}
 
 do_execsql_test 6.1.2 {
@@ skipping 14 matching lines @@
   execsql {
     BEGIN;
       INSERT INTO s3(s3) VALUES('optimize');
     ROLLBACK;
   }
 } {}
 
 #-------------------------------------------------------------------------
 #
 set doc [string repeat "a b c " 500]
-breakpoint
 do_execsql_test 7.0 {
-  CREATE VIRTUAL TABLE x1 USING fts5(x);
+  CREATE VIRTUAL TABLE x1 USING fts5(x, detail=%DETAIL%);
   INSERT INTO x1(x1, rank) VALUES('pgsz', 32);
   INSERT INTO x1 VALUES($doc);
 }
 
+} ;# foreach_detail_mode...
 
 
 finish_test