| Index: third_party/sqlite/src/ext/fts5/test/fts5bigtok.test
|
| diff --git a/third_party/sqlite/src/ext/fts5/test/fts5bigtok.test b/third_party/sqlite/src/ext/fts5/test/fts5bigtok.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..9ccaf6c8603cdf9a51b738ffed39086b0faa113d
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/ext/fts5/test/fts5bigtok.test
|
| @@ -0,0 +1,68 @@
|
| +# 2016 Jan 19
|
| +#
|
| +# 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 fts5bigtok
|
| +return_if_no_fts5
|
| +
|
| +proc rndterm {} {
|
| + 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]
|
| + set l [lindex $L [expr int(rand() * [llength $L])]]
|
| + string repeat $l [expr int(rand() * 5) + 60]
|
| +}
|
| +
|
| +proc rnddoc {n} {
|
| + set res [list]
|
| + for {set i 0} {$i < $n} {incr i} {
|
| + lappend res [rndterm]
|
| + }
|
| + set res
|
| +}
|
| +
|
| +foreach_detail_mode $::testprefix {
|
| + db func rnddoc rnddoc
|
| + do_execsql_test 1.0 {
|
| + CREATE VIRTUAL TABLE t1 USING fts5(x, detail=%DETAIL%);
|
| + INSERT INTO t1(t1, rank) VALUES('pgsz', 32);
|
| + CREATE VIRTUAL TABLE t1vocab USING fts5vocab(t1, row);
|
| +
|
| + WITH s(i) AS ( SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<10 )
|
| + INSERT INTO t1 SELECT rnddoc(3) FROM s;
|
| +
|
| + WITH s(i) AS ( SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<10 )
|
| + INSERT INTO t1 SELECT rnddoc(3) FROM s;
|
| + }
|
| +
|
| + foreach v [db eval {SELECT term FROM t1vocab}] {
|
| + set res [db eval {SELECT rowid FROM t1($v)}]
|
| + do_execsql_test 1.[string range $v 0 0] {
|
| + SELECT rowid FROM t1($v) ORDER BY rowid DESC
|
| + } [lsort -integer -decr $res]
|
| + }
|
| +
|
| + do_execsql_test 2.0 {
|
| + INSERT INTO t1(t1) VALUES('optimize');
|
| + }
|
| +
|
| + foreach v [db eval {SELECT term FROM t1vocab}] {
|
| + set res [db eval {SELECT rowid FROM t1($v)}]
|
| + do_execsql_test 2.[string range $v 0 0] {
|
| + SELECT rowid FROM t1($v) ORDER BY rowid DESC
|
| + } [lsort -integer -decr $res]
|
| + }
|
| +}
|
| +
|
| +finish_test
|
| +
|
| +
|
|
|