1# 2014 May 7 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 FTS3 module. 13# 14 15set testdir [file dirname $argv0] 16source $testdir/tester.tcl 17set testprefix fts3expr4 18 19# If SQLITE_ENABLE_FTS3 is defined, omit this file. 20ifcapable !fts3||!icu { 21 finish_test 22 return 23} 24 25set sqlite_fts3_enable_parentheses 1 26 27proc test_fts3expr {tokenizer expr} { 28 db one {SELECT fts3_exprtest($tokenizer, $expr, 'a', 'b', 'c')} 29} 30 31proc do_icu_expr_test {tn expr res} { 32 set res2 [list {*}$res] 33 uplevel [list do_test $tn [list test_fts3expr "icu en_US" $expr] $res2] 34} 35 36proc do_simple_expr_test {tn expr res} { 37 uplevel [list do_test $tn [list test_fts3expr simple $expr] [list {*}$res]] 38} 39 40#------------------------------------------------------------------------- 41# 42do_icu_expr_test 1.1 "abcd" {PHRASE 3 0 abcd} 43do_icu_expr_test 1.2 " tag " {PHRASE 3 0 tag} 44do_icu_expr_test 1.3 {"x y z"} {PHRASE 3 0 x y z} 45do_icu_expr_test 1.4 {x OR y} {OR {PHRASE 3 0 x} {PHRASE 3 0 y}} 46do_icu_expr_test 1.5 {(x OR y)} {OR {PHRASE 3 0 x} {PHRASE 3 0 y}} 47do_icu_expr_test 1.6 { "(x OR y)" } {PHRASE 3 0 ( x or y )} 48 49# In "col:word", if "col" is not the name of a column, the entire thing 50# is passed to the tokenizer. 51# 52do_icu_expr_test 1.7 {a:word} {PHRASE 0 0 word} 53do_icu_expr_test 1.8 {d:word} {PHRASE 3 0 d:word} 54 55set sqlite_fts3_enable_parentheses 0 56 57do_icu_expr_test 2.1 { 58 f (e NEAR/2 a) 59} {AND {AND {AND {PHRASE 3 0 f} {PHRASE 3 0 (}} {NEAR/2 {PHRASE 3 0 e} {PHRASE 3 0 a}}} {PHRASE 3 0 )}} 60 61#------------------------------------------------------------------------- 62# 63do_simple_expr_test 3.1 {*lOl* *h4h*} { 64 AND {PHRASE 3 0 lol+} {PHRASE 3 0 h4h+} 65} 66 67do_icu_expr_test 3.2 {*lOl* *h4h*} { 68 AND {AND {AND {PHRASE 3 0 *} {PHRASE 3 0 lol+}} {PHRASE 3 0 *}} {PHRASE 3 0 h4h+} 69} 70 71do_simple_expr_test 3.3 { * } {} 72do_simple_expr_test 3.4 { *a } { PHRASE 3 0 a } 73do_simple_expr_test 3.5 { a*b } { AND {PHRASE 3 0 a+} {PHRASE 3 0 b} } 74do_simple_expr_test 3.6 { *a*b } { AND {PHRASE 3 0 a+} {PHRASE 3 0 b} } 75do_simple_expr_test 3.7 { *"abc" } { PHRASE 3 0 abc } 76do_simple_expr_test 3.8 { "abc"* } { PHRASE 3 0 abc } 77do_simple_expr_test 3.8 { "ab*c" } { PHRASE 3 0 ab+ c } 78 79do_icu_expr_test 3.9 { "ab*c" } { PHRASE 3 0 ab+ * c } 80do_icu_expr_test 3.10 { ab*c } { AND {PHRASE 3 0 ab+} {PHRASE 3 0 c}} 81 82finish_test 83