# 2014 Dec 20 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # Tests focusing on the fts5 porter stemmer implementation. # # These are extra tests added to those in fts5porter.test in order to # improve test coverage of the porter stemmer implementation. # source [file join [file dirname [info script]] fts5_common.tcl] set testprefix fts5porter2 # If SQLITE_ENABLE_FTS5 is defined, omit this file. ifcapable !fts5 { finish_test return } set test_vocab { tion tion ation ation vation vation avation avat vion vion ion ion relational relat relation relat relate relat zzz zzz ii ii iiing ii xtional xtional xenci xenci xlogi xlogi realization realiz realize realiz xization xizat capitalism capit talism talism xiveness xive xfulness xful xousness xous xical xical xicate xicat xicity xiciti ies ie eed e eing e s s } set i 0 foreach {in out} $test_vocab { do_test "1.$i.($in -> $out)" { lindex [sqlite3_fts5_tokenize db porter $in] 0 } $out incr i } finish_test