OLD | NEW |
(Empty) | |
| 1 # 2015 October 27 |
| 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 fts5query |
| 17 |
| 18 # If SQLITE_ENABLE_FTS5 is defined, omit this file. |
| 19 ifcapable !fts5 { |
| 20 finish_test |
| 21 return |
| 22 } |
| 23 |
| 24 for {set tn 1 ; set pgsz 64} {$tn<32} {incr tn; incr pgsz 16} { |
| 25 reset_db |
| 26 do_test 1.$tn.1 { |
| 27 execsql { |
| 28 CREATE VIRTUAL TABLE t1 USING fts5(x); |
| 29 INSERT INTO t1(t1, rank) VALUES('pgsz', $pgsz); |
| 30 BEGIN; |
| 31 } |
| 32 foreach x [list aaa bbb ccc ddd eee fff ggg hhh iii jjj] { |
| 33 set doc [string repeat "$x " 30] |
| 34 execsql { INSERT INTO t1 VALUES($doc) } |
| 35 } |
| 36 execsql COMMIT |
| 37 } {} |
| 38 |
| 39 do_execsql_test 1.$tn.2 { |
| 40 INSERT INTO t1(t1) VALUES('integrity-check'); |
| 41 } |
| 42 |
| 43 set ret 1 |
| 44 foreach x [list a b c d e f g h i j] { |
| 45 do_execsql_test 1.$tn.3.$ret { |
| 46 SELECT rowid FROM t1 WHERE t1 MATCH $x || '*'; |
| 47 } $ret |
| 48 incr ret |
| 49 } |
| 50 } |
| 51 |
| 52 for {set tn 1 ; set pgsz 64} {$tn<32} {incr tn; incr pgsz 16} { |
| 53 reset_db |
| 54 do_test 2.$tn.1 { |
| 55 execsql { |
| 56 CREATE VIRTUAL TABLE t1 USING fts5(x); |
| 57 INSERT INTO t1(t1, rank) VALUES('pgsz', $pgsz); |
| 58 BEGIN; |
| 59 } |
| 60 foreach x [list bbb ddd fff hhh jjj lll nnn ppp rrr ttt] { |
| 61 set doc [string repeat "$x " 30] |
| 62 execsql { INSERT INTO t1 VALUES($doc) } |
| 63 } |
| 64 execsql COMMIT |
| 65 } {} |
| 66 |
| 67 do_execsql_test 1.$tn.2 { |
| 68 INSERT INTO t1(t1) VALUES('integrity-check'); |
| 69 } |
| 70 |
| 71 set ret 1 |
| 72 foreach x [list a c e g i k m o q s u] { |
| 73 do_execsql_test 2.$tn.3.$ret { |
| 74 SELECT rowid FROM t1 WHERE t1 MATCH $x || '*'; |
| 75 } {} |
| 76 incr ret |
| 77 } |
| 78 } |
| 79 |
| 80 |
| 81 finish_test |
| 82 |
| 83 |
OLD | NEW |