Annotation of embedaddon/sqlite3/test/fts2token.test, revision 1.1
1.1 ! misho 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to fts2token.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test