Add the 'merge=?,?' command to fts4. This still needs some work.

FossilOrigin-Name: 741b8f897750eac3c9774fd65de7e40bb89781b1

test/fts4merge.test

@@ -0,0 +1,103 @@
+# 2012 March 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.  The
+# focus of this script is testing the incremental merge function.
+#
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+source $testdir/fts3_common.tcl
+set ::testprefix fts4merge
+
+# If SQLITE_ENABLE_FTS3 is defined, omit this file.
+ifcapable !fts3 {
+  finish_test
+  return
+}
+
+proc fts3_build_db_1 {n} {
+
+  if {$n > 10000} {error "n must be <= 10000"}
+
+  db eval { CREATE VIRTUAL TABLE t1 USING fts4(x, y) }
+
+  set xwords [list zero one two three four five six seven eight nine ten]
+  set ywords [list alpha beta gamma delta epsilon zeta eta theta iota kappa]
+
+  for {set i 0} {$i < $n} {incr i} {
+    set x ""
+    set y ""
+
+    set x [list]
+    lappend x [lindex $xwords [expr ($i / 1000) % 10]]
+    lappend x [lindex $xwords [expr ($i / 100)  % 10]]
+    lappend x [lindex $xwords [expr ($i / 10)   % 10]]
+    lappend x [lindex $xwords [expr ($i / 1)   % 10]]
+
+    set y [list]
+    lappend y [lindex $ywords [expr ($i / 1000) % 10]]
+    lappend y [lindex $ywords [expr ($i / 100)  % 10]]
+    lappend y [lindex $ywords [expr ($i / 10)   % 10]]
+    lappend y [lindex $ywords [expr ($i / 1)   % 10]]
+
+    db eval { INSERT INTO t1(docid, x, y) VALUES($i, $x, $y) }
+  }
+}
+
+#-------------------------------------------------------------------------
+# Test cases 1.*
+#
+do_test 1.0 { fts3_build_db_1 1004 } {}
+do_test 1.1 { fts3_integrity_check t1 } {ok}
+do_execsql_test 1.1 { 
+  SELECT level, group_concat(idx, ' ') FROM t1_segdir GROUP BY level 
+} {
+  0 {0 1 2 3 4 5 6 7 8 9 10 11} 
+  1 {0 1 2 3 4 5 6 7 8 9 10 11 12 13}
+  2 {0 1 2}
+}
+
+for {set i 0} {$i<20} {incr i} {
+  do_execsql_test 1.2.$i.1 { INSERT INTO t1(t1) VALUES('merge=1') }
+  do_test 1.2.$i.2 { fts3_integrity_check t1 } ok
+  do_execsql_test 1.2.$i.3 { 
+    SELECT docid FROM t1 WHERE t1 MATCH 'zero one two three'
+  } {123 132 213 231 312 321}
+}
+
+do_execsql_test 1.3 { 
+  SELECT level, group_concat(idx, ' ') FROM t1_segdir GROUP BY level 
+} {
+  0 {0 1 2 3 4 5 6 7} 
+  1 {0 1 2 3 4 5 6 7}
+  2 {0 1 2 3 4 5 6}
+}
+
+for {set i 0} {$i<100} {incr i} {
+  do_execsql_test 1.4.$i { INSERT INTO t1(t1) VALUES('merge=1,4') }
+  do_test 1.4.$i.2 { fts3_integrity_check t1 } ok
+  do_execsql_test 1.4.$i.3 { 
+    SELECT docid FROM t1 WHERE t1 MATCH 'zero one two three'
+  } {123 132 213 231 312 321}
+}
+
+do_execsql_test 1.5 { 
+  SELECT level, group_concat(idx, ' ') FROM t1_segdir GROUP BY level 
+} {
+  0 {0 1 2 3} 
+  1 {0 1 2 3} 
+  2 {0 1 2 3} 
+  3 {0 1 2}
+}
+
+
+finish_test
+