|
1 # 2007 June 21 |
|
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 focus |
|
12 # of this script is testing the pluggable tokeniser feature of the |
|
13 # FTS2 module. |
|
14 # |
|
15 # $Id: fts2token.test,v 1.3 2007/06/25 12:05:40 danielk1977 Exp $ |
|
16 # |
|
17 |
|
18 set testdir [file dirname $argv0] |
|
19 source $testdir/tester.tcl |
|
20 |
|
21 # If SQLITE_ENABLE_FTS2 is defined, omit this file. |
|
22 ifcapable !fts2 { |
|
23 finish_test |
|
24 return |
|
25 } |
|
26 |
|
27 proc escape_string {str} { |
|
28 set out "" |
|
29 foreach char [split $str ""] { |
|
30 scan $char %c i |
|
31 if {$i<=127} { |
|
32 append out $char |
|
33 } else { |
|
34 append out [format {\x%.4x} $i] |
|
35 } |
|
36 } |
|
37 set out |
|
38 } |
|
39 |
|
40 #-------------------------------------------------------------------------- |
|
41 # Test cases fts2token-1.* are the warm-body test for the SQL scalar |
|
42 # function fts2_tokenizer(). The procedure is as follows: |
|
43 # |
|
44 # 1: Verify that there is no such fts2 tokenizer as 'blah'. |
|
45 # |
|
46 # 2: Query for the built-in tokenizer 'simple'. Insert a copy of the |
|
47 # retrieved value as tokenizer 'blah'. |
|
48 # |
|
49 # 3: Test that the value returned for tokenizer 'blah' is now the |
|
50 # same as that retrieved for 'simple'. |
|
51 # |
|
52 # 4: Test that it is now possible to create an fts2 table using |
|
53 # tokenizer 'blah' (it was not possible in step 1). |
|
54 # |
|
55 # 5: Test that the table created to use tokenizer 'blah' is usable. |
|
56 # |
|
57 do_test fts2token-1.1 { |
|
58 catchsql { |
|
59 CREATE VIRTUAL TABLE t1 USING fts2(content, tokenize blah); |
|
60 } |
|
61 } {1 {unknown tokenizer: blah}} |
|
62 do_test fts2token-1.2 { |
|
63 execsql { |
|
64 SELECT fts2_tokenizer('blah', fts2_tokenizer('simple')) IS NULL; |
|
65 } |
|
66 } {0} |
|
67 do_test fts2token-1.3 { |
|
68 execsql { |
|
69 SELECT fts2_tokenizer('blah') == fts2_tokenizer('simple'); |
|
70 } |
|
71 } {1} |
|
72 do_test fts2token-1.4 { |
|
73 catchsql { |
|
74 CREATE VIRTUAL TABLE t1 USING fts2(content, tokenize blah); |
|
75 } |
|
76 } {0 {}} |
|
77 do_test fts2token-1.5 { |
|
78 execsql { |
|
79 INSERT INTO t1(content) VALUES('There was movement at the station'); |
|
80 INSERT INTO t1(content) VALUES('For the word has passed around'); |
|
81 INSERT INTO t1(content) VALUES('That the colt from ol regret had got away'); |
|
82 SELECT content FROM t1 WHERE content MATCH 'movement' |
|
83 } |
|
84 } {{There was movement at the station}} |
|
85 |
|
86 #-------------------------------------------------------------------------- |
|
87 # Test cases fts2token-2.* test error cases in the scalar function based |
|
88 # API for getting and setting tokenizers. |
|
89 # |
|
90 do_test fts2token-2.1 { |
|
91 catchsql { |
|
92 SELECT fts2_tokenizer('nosuchtokenizer'); |
|
93 } |
|
94 } {1 {unknown tokenizer: nosuchtokenizer}} |
|
95 |
|
96 #-------------------------------------------------------------------------- |
|
97 # Test cases fts2token-3.* test the three built-in tokenizers with a |
|
98 # simple input string via the built-in test function. This is as much |
|
99 # to test the test function as the tokenizer implementations. |
|
100 # |
|
101 do_test fts2token-3.1 { |
|
102 execsql { |
|
103 SELECT fts2_tokenizer_test('simple', 'I don''t see how'); |
|
104 } |
|
105 } {{0 i I 1 don don 2 t t 3 see see 4 how how}} |
|
106 do_test fts2token-3.2 { |
|
107 execsql { |
|
108 SELECT fts2_tokenizer_test('porter', 'I don''t see how'); |
|
109 } |
|
110 } {{0 i I 1 don don 2 t t 3 see see 4 how how}} |
|
111 ifcapable icu { |
|
112 do_test fts2token-3.3 { |
|
113 execsql { |
|
114 SELECT fts2_tokenizer_test('icu', 'I don''t see how'); |
|
115 } |
|
116 } {{0 i I 1 don't don't 2 see see 3 how how}} |
|
117 } |
|
118 |
|
119 #-------------------------------------------------------------------------- |
|
120 # Test cases fts2token-4.* test the ICU tokenizer. In practice, this |
|
121 # tokenizer only has two modes - "thai" and "everybody else". Some other |
|
122 # Asian languages (Lao, Khmer etc.) require the same special treatment as |
|
123 # Thai, but ICU doesn't support them yet. |
|
124 # |
|
125 ifcapable icu { |
|
126 |
|
127 proc do_icu_test {name locale input output} { |
|
128 set ::out [db eval { SELECT fts2_tokenizer_test('icu', $locale, $input) }] |
|
129 do_test $name { |
|
130 lindex $::out 0 |
|
131 } $output |
|
132 } |
|
133 |
|
134 do_icu_test fts2token-4.1 en_US {} {} |
|
135 do_icu_test fts2token-4.2 en_US {Test cases fts2} [list \ |
|
136 0 test Test 1 cases cases 2 fts2 fts2 |
|
137 ] |
|
138 |
|
139 # The following test shows that ICU is smart enough to recognise |
|
140 # Thai chararacters, even when the locale is set to English/United |
|
141 # States. |
|
142 # |
|
143 set input "\u0e2d\u0e30\u0e44\u0e23\u0e19\u0e30\u0e04\u0e23\u0e31\u0e1a" |
|
144 set output "0 \u0e2d\u0e30\u0e44\u0e23 \u0e2d\u0e30\u0e44\u0e23 " |
|
145 append output "1 \u0e19\u0e30 \u0e19\u0e30 " |
|
146 append output "2 \u0e04\u0e23\u0e31\u0e1a \u0e04\u0e23\u0e31\u0e1a" |
|
147 |
|
148 do_icu_test fts2token-4.3 th_TH $input $output |
|
149 do_icu_test fts2token-4.4 en_US $input $output |
|
150 |
|
151 # ICU handles an unknown locale by falling back to the default. |
|
152 # So this is not an error. |
|
153 do_icu_test fts2token-4.5 MiddleOfTheOcean $input $output |
|
154 |
|
155 set longtoken "AReallyReallyLongTokenOneThatWillSurelyRequire" |
|
156 append longtoken "AReallocInTheIcuTokenizerCode" |
|
157 |
|
158 set input "short tokens then " |
|
159 append input $longtoken |
|
160 set output "0 short short " |
|
161 append output "1 tokens tokens " |
|
162 append output "2 then then " |
|
163 append output "3 [string tolower $longtoken] $longtoken" |
|
164 |
|
165 do_icu_test fts2token-4.6 MiddleOfTheOcean $input $output |
|
166 do_icu_test fts2token-4.7 th_TH $input $output |
|
167 do_icu_test fts2token-4.8 en_US $input $output |
|
168 } |
|
169 |
|
170 do_test fts2token-internal { |
|
171 execsql { SELECT fts2_tokenizer_internal_test() } |
|
172 } {ok} |
|
173 |
|
174 finish_test |