1# 2010 October 23
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#
12
13set testdir [file dirname $argv0]
14source $testdir/tester.tcl
15source $testdir/malloc_common.tcl
16ifcapable !fts3||!fts4_deferred {
17  finish_test
18  return
19}
20
21set testprefix fts3defer2
22
23proc mit {blob} {
24  set scan(littleEndian) i*
25  set scan(bigEndian) I*
26  binary scan $blob $scan($::tcl_platform(byteOrder)) r
27  return $r
28}
29db func mit mit
30
31#-----------------------------------------------------------------------------
32# This block of tests - fts3defer2-1.* - test the interaction of deferred NEAR
33# expressions and the snippet, offsets and matchinfo functions.
34#
35do_execsql_test 1.1.1 {
36  CREATE VIRTUAL TABLE t1 USING fts4;
37}
38do_execsql_test 1.1.2 "INSERT INTO t1 VALUES('[string repeat {a } 20000]')"
39do_execsql_test 1.1.3 "INSERT INTO t1 VALUES('[string repeat {z } 20000]')"
40do_execsql_test 1.1.4 {
41  INSERT INTO t1 VALUES('a b c d e f a x y');
42  INSERT INTO t1 VALUES('');
43  INSERT INTO t1 VALUES('');
44  INSERT INTO t1 VALUES('');
45  INSERT INTO t1 VALUES('');
46  INSERT INTO t1 VALUES('');
47  INSERT INTO t1(t1) VALUES('optimize');
48}
49sqlite3_db_config db DEFENSIVE 0
50do_execsql_test 1.1.4 {
51  SELECT count(*) FROM t1_segments WHERE length(block)>10000;
52  UPDATE t1_segments SET block = zeroblob(length(block)) WHERE length(block)>10000;
53} {2}
54
55do_execsql_test 1.2.0 {
56  SELECT content FROM t1 WHERE t1 MATCH 'f (e a)';
57} {{a b c d e f a x y}}
58
59do_execsql_test 1.2.1 {
60  SELECT content FROM t1 WHERE t1 MATCH 'f (e NEAR/2 a)';
61} {{a b c d e f a x y}}
62
63
64do_execsql_test 1.2.2 {
65  SELECT snippet(t1, '[', ']'), offsets(t1), mit(matchinfo(t1, 'pcxnal'))
66  FROM t1 WHERE t1 MATCH 'f (e NEAR/2 a)';
67} [list                              \
68   {a b c d [e] [f] [a] x y}         \
69   {0 1 8 1 0 0 10 1 0 2 12 1}       \
70   [list 3 1   1 1 1   1 1 1   1 1 1   8 5001 9]
71]
72
73do_execsql_test 1.2.3 {
74  SELECT snippet(t1, '[', ']'), offsets(t1), mit(matchinfo(t1, 'pcxnal'))
75  FROM t1 WHERE t1 MATCH 'f (e NEAR/3 a)';
76} [list                                 \
77   {[a] b c d [e] [f] [a] x y}          \
78   {0 2 0 1 0 1 8 1 0 0 10 1 0 2 12 1}  \
79   [list 3 1   1 1 1   1 1 1   2 2 1   8 5001 9]
80]
81
82do_execsql_test 1.3.1 { DROP TABLE t1 }
83
84#-----------------------------------------------------------------------------
85# Test cases fts3defer2-2.* focus specifically on the matchinfo function.
86#
87do_execsql_test 2.1.1 "CREATE VIRTUAL TABLE t2 USING fts4"
88do_execsql_test 2.1.2 "INSERT INTO t2 VALUES('[string repeat {a } 10000]')"
89do_execsql_test 2.1.3 "INSERT INTO t2 VALUES('b [string repeat {z } 10000]')"
90do_execsql_test 2.1.4 [string repeat "INSERT INTO t2 VALUES('x');" 50]
91do_execsql_test 2.1.5 {
92  INSERT INTO t2 VALUES('a b c d e f g z');
93  INSERT INTO t2 VALUES('a b c d e f g');
94}
95foreach {tn sql} {
96  1 {}
97  2 { INSERT INTO t2(t2) VALUES('optimize') }
98  3 { UPDATE t2_segments SET block = zeroblob(length(block))
99      WHERE length(block)>10000;
100  }
101} {
102  sqlite3_db_config db DEFENSIVE 0
103  execsql $sql
104
105  do_execsql_test 2.2.$tn.1 {
106    SELECT mit(matchinfo(t2, 'pcxnal')) FROM t2 WHERE t2 MATCH 'a b';
107  } [list                                          \
108    [list 2 1  1 54 54  1 3 3  54 372 8]        \
109    [list 2 1  1 54 54  1 3 3  54 372 7]        \
110  ]
111
112  do_execsql_test 2.2.$tn.2 {
113    SELECT mit(matchinfo(t2, 'x')) FROM t2 WHERE t2 MATCH 'g z';
114  } [list                                       \
115    [list 1 2 2  1 54 54]                       \
116  ]
117
118  set sqlite_fts3_enable_parentheses 1
119  do_execsql_test 2.2.$tn.3 {
120    SELECT mit(matchinfo(t2, 'x')) FROM t2 WHERE t2 MATCH 'g OR (g z)';
121  } [list                                       \
122    [list 1 2 2  1 2 2   1 54 54]               \
123    [list 1 2 2  1 2 2   0 54 54]               \
124  ]
125  set sqlite_fts3_enable_parentheses 0
126
127  do_execsql_test 2.2.$tn.4 {
128    SELECT mit(matchinfo(t2, 'x')) FROM t2 WHERE t2 MATCH 'e "g z"';
129  } [list                                       \
130    [list 1 2 2  1 2 2]                         \
131  ]
132}
133
134do_execsql_test 2.3.1 {
135  CREATE VIRTUAL TABLE t3 USING fts4;
136  INSERT INTO t3 VALUES('a b c d e f');
137  INSERT INTO t3 VALUES('x b c d e f');
138  INSERT INTO t3 VALUES('d e f a b c');
139  INSERT INTO t3 VALUES('b c d e f');
140  INSERT INTO t3 VALUES('');
141  INSERT INTO t3 VALUES('');
142  INSERT INTO t3 VALUES('');
143  INSERT INTO t3 VALUES('');
144  INSERT INTO t3 VALUES('');
145  INSERT INTO t3 VALUES('');
146}
147do_execsql_test 2.3.2 "
148  INSERT INTO t3 VALUES('f e d c b [string repeat {a } 10000]')
149"
150foreach {tn sql} {
151  1 {}
152  2 { INSERT INTO t3(t3) VALUES('optimize') }
153  3 { UPDATE t3_segments SET block = zeroblob(length(block))
154      WHERE length(block)>10000;
155  }
156} {
157  sqlite3_db_config db DEFENSIVE 0
158  execsql $sql
159  do_execsql_test 2.4.$tn {
160    SELECT docid, mit(matchinfo(t3, 'pcxnal')) FROM t3 WHERE t3 MATCH '"a b c"';
161  } {1 {1 1 1 4 4 11 912 6} 3 {1 1 1 4 4 11 912 6}}
162}
163
164
165finish_test
166