Return to fts2h.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/fts2h.test, revision 1.1

1.1     ! misho       1: # 2006 October 31 (scaaarey)
        !             2: #
        !             3: # The author disclaims copyright to this source code.
        !             4: #
        !             5: #*************************************************************************
        !             6: # This file implements regression tests for SQLite library.  The focus
        !             7: # here is testing correct handling of excessively long terms.
        !             8: #
        !             9: # $Id: fts2h.test,v 1.1 2006/11/29 21:03:01 shess Exp $
        !            10: #
        !            11: 
        !            12: set testdir [file dirname $argv0]
        !            13: source $testdir/tester.tcl
        !            14: 
        !            15: # If SQLITE_ENABLE_FTS2 is defined, omit this file.
        !            16: ifcapable !fts2 {
        !            17:   finish_test
        !            18:   return
        !            19: }
        !            20: 
        !            21: # Generate a term of len copies of char.
        !            22: proc bigterm {char len} {
        !            23:   for {set term ""} {$len>0} {incr len -1} {
        !            24:     append term $char
        !            25:   }
        !            26:   return $term
        !            27: }
        !            28: 
        !            29: # Generate a document of bigterms based on characters from the list
        !            30: # chars.
        !            31: proc bigtermdoc {chars len} {
        !            32:   set doc ""
        !            33:   foreach char $chars {
        !            34:     append doc " " [bigterm $char $len]
        !            35:   }
        !            36:   return $doc
        !            37: }
        !            38: 
        !            39: set len 5000
        !            40: set doc1 [bigtermdoc {a b c d} $len]
        !            41: set doc2 [bigtermdoc {b d e f} $len]
        !            42: set doc3 [bigtermdoc {a c e} $len]
        !            43: 
        !            44: set aterm [bigterm a $len]
        !            45: set bterm [bigterm b $len]
        !            46: set xterm [bigterm x $len]
        !            47: 
        !            48: db eval {
        !            49:   CREATE VIRTUAL TABLE t1 USING fts2(content);
        !            50:   INSERT INTO t1 (rowid, content) VALUES(1, $doc1);
        !            51:   INSERT INTO t1 (rowid, content) VALUES(2, $doc2);
        !            52:   INSERT INTO t1 (rowid, content) VALUES(3, $doc3);
        !            53: }
        !            54: 
        !            55: # No hits at all.  Returns empty doclists from termSelect().
        !            56: do_test fts2h-1.1 {
        !            57:   execsql {SELECT rowid FROM t1 WHERE t1 MATCH 'something'}
        !            58: } {}
        !            59: 
        !            60: do_test fts2h-1.2 {
        !            61:   execsql {SELECT rowid FROM t1 WHERE t1 MATCH $aterm}
        !            62: } {1 3}
        !            63: 
        !            64: do_test fts2h-1.2 {
        !            65:   execsql {SELECT rowid FROM t1 WHERE t1 MATCH $xterm}
        !            66: } {}
        !            67: 
        !            68: do_test fts2h-1.3 {
        !            69:   execsql "SELECT rowid FROM t1 WHERE t1 MATCH '$aterm -$xterm'"
        !            70: } {1 3}
        !            71: 
        !            72: do_test fts2h-1.4 {
        !            73:   execsql "SELECT rowid FROM t1 WHERE t1 MATCH '\"$aterm $bterm\"'"
        !            74: } {1}
        !            75: 
        !            76: finish_test