third_party/sqlite/src/test/fts2token.test

   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