| 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 | 
|---|