OLD | NEW |
| (Empty) |
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 # This file contains a very simple test to show that the deferred tokens | |
13 # optimization is doing something. | |
14 # | |
15 | |
16 set testdir [file dirname $argv0] | |
17 source $testdir/tester.tcl | |
18 source $testdir/malloc_common.tcl | |
19 ifcapable !fts3||!fts4_deferred { | |
20 finish_test | |
21 return | |
22 } | |
23 set testprefix fts3defer3 | |
24 | |
25 set nDoclist 3204 | |
26 set nDoc 800 | |
27 | |
28 # Set up a database that contains 800 rows. Each row contains the document | |
29 # "b b", except for the row with docid=200, which contains "a b". Hence | |
30 # token "b" is extremely common and token "a" is not. | |
31 # | |
32 do_test 1.1 { | |
33 execsql { | |
34 CREATE VIRTUAL TABLE t1 USING fts4; | |
35 BEGIN; | |
36 } | |
37 for {set i 1} {$i <= $nDoc} {incr i} { | |
38 set document "b b" | |
39 if {$i==200} { set document "a b" } | |
40 execsql { INSERT INTO t1 (docid, content) VALUES($i, $document) } | |
41 } | |
42 execsql COMMIT | |
43 } {} | |
44 | |
45 # Check that the db contains two doclists. A small one for "a" and a | |
46 # larger one for "b". | |
47 # | |
48 do_execsql_test 1.2 { | |
49 SELECT blockid, length(block) FROM t1_segments; | |
50 } [list 1 8 2 $nDoclist] | |
51 | |
52 # Query for 'a b'. Although this test doesn't prove so, token "b" will | |
53 # be deferred because of the very large associated doclist. | |
54 # | |
55 do_execsql_test 1.3 { | |
56 SELECT docid, content FROM t1 WHERE t1 MATCH 'a b'; | |
57 } {200 {a b}} | |
58 | |
59 # Zero out the doclist for token "b" within the database file. Now the | |
60 # only queries that use token "b" that will work are those that defer | |
61 # it. Any query that tries to use the doclist belonging to token "b" | |
62 # will fail. | |
63 # | |
64 do_test 1.4 { | |
65 set fd [db incrblob t1_segments block 2] | |
66 puts -nonewline $fd [string repeat "\00" $nDoclist] | |
67 close $fd | |
68 } {} | |
69 | |
70 # The first two queries succeed, as they defer token "b". The last one | |
71 # fails, as it tries to load the corrupt doclist. | |
72 # | |
73 do_execsql_test 1.5 { | |
74 SELECT docid, content FROM t1 WHERE t1 MATCH 'a b'; | |
75 } {200 {a b}} | |
76 do_execsql_test 1.6 { | |
77 SELECT count(*) FROM t1 WHERE t1 MATCH 'a b'; | |
78 } {1} | |
79 do_catchsql_test 1.7 { | |
80 SELECT count(*) FROM t1 WHERE t1 MATCH 'b'; | |
81 } {1 {database disk image is malformed}} | |
82 | |
83 | |
84 finish_test | |
OLD | NEW |