OLD | NEW |
| (Empty) |
1 # 2014 Dec 20 | |
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 # Tests focusing on the fts5 porter stemmer implementation. | |
13 # | |
14 # These are extra tests added to those in fts5porter.test in order to | |
15 # improve test coverage of the porter stemmer implementation. | |
16 # | |
17 | |
18 source [file join [file dirname [info script]] fts5_common.tcl] | |
19 set testprefix fts5porter2 | |
20 | |
21 # If SQLITE_ENABLE_FTS5 is defined, omit this file. | |
22 ifcapable !fts5 { | |
23 finish_test | |
24 return | |
25 } | |
26 | |
27 set test_vocab { | |
28 tion tion | |
29 ation ation | |
30 vation vation | |
31 avation avat | |
32 vion vion | |
33 ion ion | |
34 relational relat | |
35 relation relat | |
36 relate relat | |
37 zzz zzz | |
38 ii ii | |
39 iiing ii | |
40 xtional xtional | |
41 xenci xenci | |
42 xlogi xlogi | |
43 realization realiz | |
44 realize realiz | |
45 xization xizat | |
46 capitalism capit | |
47 talism talism | |
48 xiveness xive | |
49 xfulness xful | |
50 xousness xous | |
51 xical xical | |
52 xicate xicat | |
53 xicity xiciti | |
54 ies ie | |
55 eed e | |
56 eing e | |
57 s s | |
58 } | |
59 | |
60 set i 0 | |
61 foreach {in out} $test_vocab { | |
62 do_test "1.$i.($in -> $out)" { | |
63 lindex [sqlite3_fts5_tokenize db porter $in] 0 | |
64 } $out | |
65 incr i | |
66 } | |
67 | |
68 | |
69 finish_test | |
70 | |
OLD | NEW |