| OLD | NEW |
| (Empty) |
| 1 # 2014 June 17 | |
| 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 # | |
| 12 # Test the fts5 expression parser directly using the fts5_expr() SQL | |
| 13 # test function. | |
| 14 # | |
| 15 | |
| 16 source [file join [file dirname [info script]] fts5_common.tcl] | |
| 17 set testprefix fts5ea | |
| 18 | |
| 19 # If SQLITE_ENABLE_FTS5 is defined, omit this file. | |
| 20 ifcapable !fts5 { | |
| 21 finish_test | |
| 22 return | |
| 23 } | |
| 24 | |
| 25 proc do_syntax_error_test {tn expr err} { | |
| 26 set ::se_expr $expr | |
| 27 do_catchsql_test $tn {SELECT fts5_expr($se_expr)} [list 1 $err] | |
| 28 } | |
| 29 | |
| 30 proc do_syntax_test {tn expr res} { | |
| 31 set ::se_expr $expr | |
| 32 do_execsql_test $tn {SELECT fts5_expr($se_expr)} [list $res] | |
| 33 } | |
| 34 | |
| 35 foreach {tn expr res} { | |
| 36 1 {abc} {"abc"} | |
| 37 2 {abc def} {"abc" AND "def"} | |
| 38 3 {abc*} {"abc" *} | |
| 39 4 {"abc def ghi" *} {"abc" + "def" + "ghi" *} | |
| 40 5 {one AND two} {"one" AND "two"} | |
| 41 6 {one+two} {"one" + "two"} | |
| 42 7 {one AND two OR three} {("one" AND "two") OR "three"} | |
| 43 8 {one OR two AND three} {"one" OR ("two" AND "three")} | |
| 44 9 {NEAR(one two)} {NEAR("one" "two", 10)} | |
| 45 10 {NEAR("one three"* two, 5)} {NEAR("one" + "three" * "two", 5)} | |
| 46 11 {a OR b NOT c} {"a" OR ("b" NOT "c")} | |
| 47 12 "\x20one\x20two\x20three" {"one" AND "two" AND "three"} | |
| 48 13 "\x09one\x0Atwo\x0Dthree" {"one" AND "two" AND "three"} | |
| 49 14 {"abc""def"} {"abc" + "def"} | |
| 50 } { | |
| 51 do_execsql_test 1.$tn {SELECT fts5_expr($expr)} [list $res] | |
| 52 } | |
| 53 | |
| 54 foreach {tn expr res} { | |
| 55 1 {c1:abc} | |
| 56 {c1 : "abc"} | |
| 57 2 {c2 : NEAR(one two) c1:"hello world"} | |
| 58 {c2 : NEAR("one" "two", 10) AND c1 : "hello" + "world"} | |
| 59 } { | |
| 60 do_execsql_test 2.$tn {SELECT fts5_expr($expr, 'c1', 'c2')} [list $res] | |
| 61 } | |
| 62 | |
| 63 foreach {tn expr err} { | |
| 64 1 {AND} {fts5: syntax error near "AND"} | |
| 65 2 {abc def AND} {fts5: syntax error near ""} | |
| 66 3 {abc OR AND} {fts5: syntax error near "AND"} | |
| 67 4 {(a OR b) abc} {fts5: syntax error near "abc"} | |
| 68 5 {NEaR (a b)} {fts5: syntax error near "NEaR"} | |
| 69 6 {NEa (a b)} {fts5: syntax error near "NEa"} | |
| 70 7 {(a OR b) NOT c)} {fts5: syntax error near ")"} | |
| 71 8 {nosuch: a nosuch2: b} {no such column: nosuch} | |
| 72 9 {addr: a nosuch2: b} {no such column: nosuch2} | |
| 73 10 {NOT} {fts5: syntax error near "NOT"} | |
| 74 11 {a AND "abc} {unterminated string} | |
| 75 | |
| 76 12 {NEAR(a b, xyz)} {expected integer, got "xyz"} | |
| 77 13 {NEAR(a b, // )} {fts5: syntax error near "/"} | |
| 78 14 {NEAR(a b, "xyz" )} {expected integer, got ""xyz""} | |
| 79 } { | |
| 80 do_catchsql_test 3.$tn {SELECT fts5_expr($expr, 'name', 'addr')} [list 1 $err] | |
| 81 } | |
| 82 | |
| 83 #------------------------------------------------------------------------- | |
| 84 # Experiment with a tokenizer that considers " to be a token character. | |
| 85 # | |
| 86 do_execsql_test 4.0 { | |
| 87 SELECT fts5_expr('a AND """"', 'x', 'tokenize="unicode61 tokenchars ''""''"'); | |
| 88 } {{"a" AND """"}} | |
| 89 | |
| 90 #------------------------------------------------------------------------- | |
| 91 # Experiment with a tokenizer that considers " to be a token character. | |
| 92 # | |
| 93 do_catchsql_test 5.0 { | |
| 94 SELECT fts5_expr('abc | def'); | |
| 95 } {1 {fts5: syntax error near "|"}} | |
| 96 | |
| 97 | |
| 98 | |
| 99 finish_test | |
| OLD | NEW |