[sql] Import SQLite 3.17.0.

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

 # 2015 May 30
 #
 # 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 contains automatically generated tests for various types
 # of MATCH expressions.
 #
 
 source [file join [file dirname [info script]] fts5_common.tcl]
 set testprefix fts5auto
 
 # If SQLITE_ENABLE_FTS5 is defined, omit this file.
 ifcapable !fts5 {
   finish_test
   return
 }
 
-
 set data {
     -4026076
     {n x w k b p x b n t t d s}     {f j j s p j o}               
     {w v i y r}                     {i p y s}                     
     {a o q v e n q r}               {q v g u c y a z y}           
     3995120
     {c}                             {e e w d t}                   
     {x c p f w r s m l r b f d}     {g g u e}                     
     {s n u t d v p d}               {b k v p m f}                 
     -2913881
@@ skipping 189 matching lines @@
     {v a z o i e n l x l r}         {r u f o r k w m d w}         
     {k s}                           {r f e j q p w}               
 }
 
 do_execsql_test 1.0 {
   CREATE VIRTUAL TABLE tt USING fts5(a, b, c, d, e, f);
 } {}
 
 fts5_aux_test_functions db
 
-proc matchdata {expr tbl collist {order ASC}} {
-
-  set cols ""
-  foreach e $collist {
-    append cols ", '$e'"
-  }
-
-  set tclexpr [db one [subst -novar {
-    SELECT fts5_expr_tcl(
-      $expr, 'nearset $cols -pc ::pc' [set cols]
-    )
-  }]]
-  set res [list]
-
-  db eval "SELECT rowid, * FROM $tbl ORDER BY rowid $order" x {
-    set cols [list]
-    foreach col $x(*) {
-      if {$col != "rowid"} { lappend cols $x($col) }
-    }
-    # set cols [list $a $b $c $d $e $f]
-    set ::pc 0
-    set rowdata [eval $tclexpr]
-    if {$rowdata != ""} { lappend res $x(rowid) $rowdata }
-  }
-
-  set res
-}
-
-proc do_auto_test {tn tbl cols expr} { 
+proc do_auto_test {tn tbl expr} {
   foreach order {asc desc} {
-    set res [matchdata $expr $tbl $cols $order]
+    set res [fts5_poslist_data $expr $tbl $order]
     set testname "$tn.[string range $order 0 0].rows=[expr [llength $res]/2]"
 
     set ::autotest_expr $expr
     do_execsql_test $testname [subst -novar {
       SELECT rowid, fts5_test_poslist([set tbl]) FROM [set tbl] 
       WHERE [set tbl] MATCH $::autotest_expr ORDER BY rowid [set order]
     }] $res
   }
-
-
 }
 
 #-------------------------------------------------------------------------
 #
 
 for {set fold 0} {$fold < 3} {incr fold} {
   switch $fold {
     0 { set map {} }
     1 { set map {
       a a  b a  c b  d b  e c  f c  g d  h d  
@@ skipping 39 matching lines @@
     B.1 { a NOT b }
     B.2 { a NOT a:b }
     B.3 { a OR (b AND c) }
     B.4 { a OR (b AND {a b c}:c) }
     B.5 { a OR "b c" }
     B.6 { a OR b OR c }
 
     C.1 { a OR (b AND "b c") }
     C.2 { a OR (b AND "z c") }
   } {
-    do_auto_test 3.$fold.$tn tt {a b c d e f} $expr
+    do_auto_test 3.$fold.$tn tt $expr
   }
 }
 
 proc replace_elems {list args} {
   set ret $list
   foreach {idx elem} $args {
     set ret [lreplace $ret $idx $idx $elem]
   }
   set ret
 }
@@ skipping 13 matching lines @@
 } {}
 
 foreach {tn expr} {
   1 x    
   2 y    
   3 z
 
   4 {c1 : x} 5 {c2 : x} 6 {c3 : x}
   7 {c1 : y} 8 {c2 : y} 9 {c3 : y}
   10 {c1 : z} 11 {c2 : z} 12 {c3 : z}
-
-
 } {
-breakpoint
-  do_auto_test 4.$tn yy {c1 c2 c3} $expr
+  do_auto_test 4.$tn yy $expr
 }
 
 
 
 finish_test