| 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 |