ext/fts5/test/fts5bigtok.test

   1 # 2016 Jan 19
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #*************************************************************************
  11 # This file implements regression tests for SQLite library.  The
  12 # focus of this script is testing the FTS5 module.
  13 #
  14
  15 source [file join [file dirname [info script]] fts5_common.tcl]
  16 set testprefix fts5bigtok
  17 return_if_no_fts5
  18
  19 proc rndterm {} {
  20   set L [list a b c d e f g h i j k l m n o p q r s t u v w x y z]
  21   set l [lindex $L [expr int(rand() * [llength $L])]]
  22   string repeat $l [expr int(rand() * 5) + 60]
  23 }
  24
  25 proc rnddoc {n} {
  26   set res [list]
  27   for {set i 0} {$i < $n} {incr i} {
  28     lappend res [rndterm]
  29   }
  30   set res
  31 }
  32
  33 foreach_detail_mode $::testprefix {
  34   db func rnddoc rnddoc
  35   do_execsql_test 1.0 {
  36     CREATE VIRTUAL TABLE t1 USING fts5(x, detail=%DETAIL%);
  37     INSERT INTO t1(t1, rank) VALUES('pgsz', 32);
  38     CREATE VIRTUAL TABLE t1vocab USING fts5vocab(t1, row);
  39
  40     WITH s(i) AS ( SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<10 )
  41     INSERT INTO t1 SELECT rnddoc(3) FROM s;
  42
  43     WITH s(i) AS ( SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<10 )
  44     INSERT INTO t1 SELECT rnddoc(3) FROM s;
  45   }
  46
  47   foreach v [db eval {SELECT term FROM t1vocab}] {
  48     set res [db eval {SELECT rowid FROM t1($v)}]
  49     do_execsql_test 1.[string range $v 0 0] {
  50       SELECT rowid FROM t1($v) ORDER BY rowid DESC
  51     } [lsort -integer -decr $res]
  52   }
  53
  54   do_execsql_test 2.0 {
  55     INSERT INTO t1(t1) VALUES('optimize');
  56   }
  57
  58   foreach v [db eval {SELECT term FROM t1vocab}] {
  59     set res [db eval {SELECT rowid FROM t1($v)}]
  60     do_execsql_test 2.[string range $v 0 0] {
  61       SELECT rowid FROM t1($v) ORDER BY rowid DESC
  62     } [lsort -integer -decr $res]
  63   }
  64 }
  65
  66 finish_test