Annotation of embedaddon/sqlite3/test/fts3ab.test, revision 1.1.1.1
1.1 misho 1: # 2006 September 13
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
12: # focus of this script is testing the FTS3 module.
13: #
14: # $Id: fts3ab.test,v 1.1 2007/08/20 17:38:42 shess Exp $
15: #
16:
17: set testdir [file dirname $argv0]
18: source $testdir/tester.tcl
19:
20: # If SQLITE_ENABLE_FTS3 is defined, omit this file.
21: ifcapable !fts3 {
22: finish_test
23: return
24: }
25:
26: # Fill the full-text index "t1" with phrases in english, spanish,
27: # and german. For the i-th row, fill in the names for the bits
28: # that are set in the value of i. The least significant bit is
29: # 1. For example, the value 5 is 101 in binary which will be
30: # converted to "one three" in english.
31: #
32: proc fill_multilanguage_fulltext_t1 {} {
33: set english {one two three four five}
34: set spanish {un dos tres cuatro cinco}
35: set german {eine zwei drei vier funf}
36:
37: for {set i 1} {$i<=31} {incr i} {
38: set cmd "INSERT INTO t1 VALUES"
39: set vset {}
40: foreach lang {english spanish german} {
41: set words {}
42: for {set j 0; set k 1} {$j<5} {incr j; incr k $k} {
43: if {$k&$i} {lappend words [lindex [set $lang] $j]}
44: }
45: lappend vset "'$words'"
46: }
47: set sql "INSERT INTO t1(english,spanish,german) VALUES([join $vset ,])"
48: # puts $sql
49: db eval $sql
50: }
51: }
52:
53: # Construct a full-text search table containing five keywords:
54: # one, two, three, four, and five, in various combinations. The
55: # rowid for each will be a bitmask for the elements it contains.
56: #
57: db eval {
58: CREATE VIRTUAL TABLE t1 USING fts3(english,spanish,german);
59: }
60: fill_multilanguage_fulltext_t1
61:
62: do_test fts3ab-1.1 {
63: execsql {SELECT rowid FROM t1 WHERE english MATCH 'one'}
64: } {1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31}
65: do_test fts3ab-1.2 {
66: execsql {SELECT rowid FROM t1 WHERE spanish MATCH 'one'}
67: } {}
68: do_test fts3ab-1.3 {
69: execsql {SELECT rowid FROM t1 WHERE german MATCH 'one'}
70: } {}
71: do_test fts3ab-1.4 {
72: execsql {SELECT rowid FROM t1 WHERE t1 MATCH 'one'}
73: } {1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31}
74: do_test fts3ab-1.5 {
75: execsql {SELECT rowid FROM t1 WHERE t1 MATCH 'one dos drei'}
76: } {7 15 23 31}
77: do_test fts3ab-1.6 {
78: execsql {SELECT english, spanish, german FROM t1 WHERE rowid=1}
79: } {one un eine}
80: do_test fts3ab-1.7 {
81: execsql {SELECT rowid FROM t1 WHERE t1 MATCH '"one un"'}
82: } {}
83:
84: do_test fts3ab-2.1 {
85: execsql {
86: CREATE VIRTUAL TABLE t2 USING fts3(from,to);
87: INSERT INTO t2([from],[to]) VALUES ('one two three', 'four five six');
88: SELECT [from], [to] FROM t2
89: }
90: } {{one two three} {four five six}}
91:
92:
93: # Compute an SQL string that contains the words one, two, three,... to
94: # describe bits set in the value $i. Only the lower 5 bits are examined.
95: #
96: proc wordset {i} {
97: set x {}
98: for {set j 0; set k 1} {$j<5} {incr j; incr k $k} {
99: if {$k&$i} {lappend x [lindex {one two three four five} $j]}
100: }
101: return '$x'
102: }
103:
104: # Create a new FTS table with three columns:
105: #
106: # norm: words for the bits of rowid
107: # plusone: words for the bits of rowid+1
108: # invert: words for the bits of ~rowid
109: #
110: db eval {
111: CREATE VIRTUAL TABLE t4 USING fts3([norm],'plusone',"invert");
112: }
113: for {set i 1} {$i<=15} {incr i} {
114: set vset [list [wordset $i] [wordset [expr {$i+1}]] [wordset [expr {~$i}]]]
115: db eval "INSERT INTO t4(norm,plusone,invert) VALUES([join $vset ,]);"
116: }
117:
118: breakpoint
119: do_test fts3ab-4.1 {
120: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'norm:one'}
121: } {1 3 5 7 9 11 13 15}
122: do_test fts3ab-4.2 {
123: execsql {SELECT rowid FROM t4 WHERE norm MATCH 'one'}
124: } {1 3 5 7 9 11 13 15}
125: do_test fts3ab-4.3 {
126: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'one'}
127: } {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15}
128: do_test fts3ab-4.4 {
129: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'plusone:one'}
130: } {2 4 6 8 10 12 14}
131: do_test fts3ab-4.5 {
132: execsql {SELECT rowid FROM t4 WHERE plusone MATCH 'one'}
133: } {2 4 6 8 10 12 14}
134: do_test fts3ab-4.6 {
135: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'norm:one plusone:two'}
136: } {1 5 9 13}
137: do_test fts3ab-4.7 {
138: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'norm:one two'}
139: } {1 3 5 7 9 11 13 15}
140: do_test fts3ab-4.8 {
141: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'plusone:two norm:one'}
142: } {1 5 9 13}
143: do_test fts3ab-4.9 {
144: execsql {SELECT rowid FROM t4 WHERE t4 MATCH 'two norm:one'}
145: } {1 3 5 7 9 11 13 15}
146:
147:
148: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to fts3ab.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