OLD | NEW |
| (Empty) |
1 # 2012 March 06 | |
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 incremental merge function. | |
13 # | |
14 | |
15 set testdir [file dirname $argv0] | |
16 source $testdir/tester.tcl | |
17 source $testdir/fts3_common.tcl | |
18 source $testdir/lock_common.tcl | |
19 source $testdir/bc_common.tcl | |
20 | |
21 set ::testprefix fts4merge3 | |
22 | |
23 ifcapable !fts3 { | |
24 finish_test | |
25 return | |
26 } | |
27 | |
28 if {"" == [bc_find_binaries backcompat.test]} { | |
29 finish_test | |
30 return | |
31 } | |
32 | |
33 db close | |
34 do_all_bc_test { | |
35 | |
36 sql2 { PRAGMA page_size = 512 } | |
37 if { 0==[catch { sql2 { CREATE VIRTUAL TABLE x USING fts4 } } ] } { | |
38 | |
39 # Build a large database. | |
40 set msg "this takes around 12 seconds" | |
41 do_test "1.1 ($msg)" { fts3_build_db_2 20000 } {} | |
42 | |
43 # Run some queries on it, using the old and new versions. | |
44 do_test 1.2 { sql1 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" } {1485} | |
45 do_test 1.3 { sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" } {1485} | |
46 | |
47 do_test 1.4 { | |
48 set x [sql2 "PRAGMA page_count"] | |
49 expr {$x>=1284 && $x<=1286} | |
50 } {1} | |
51 do_test 1.5 { sql2 { | |
52 SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1 | |
53 } } [list 0 15 1 1 2 14 3 4] | |
54 | |
55 # Run some incr-merge operations on the db. | |
56 for {set i 0} {$i<10} {incr i} { | |
57 do_test 1.6.$i.1 { sql1 { INSERT INTO t2(t2) VALUES('merge=2,2') } } {} | |
58 do_test 1.6.$i.2 { | |
59 sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" | |
60 } {1485} | |
61 } | |
62 | |
63 do_test 1.7 { sql2 { | |
64 SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1 | |
65 } } [list 0 1 2 18 3 5] | |
66 | |
67 # Using the old connection, insert many rows. | |
68 do_test 1.8 { | |
69 for {set i 0} {$i < 1500} {incr i} { | |
70 sql2 "INSERT INTO t2 SELECT content FROM t2 WHERE docid = $i" | |
71 } | |
72 } {} | |
73 | |
74 do_test 1.9 { sql2 { | |
75 SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1 | |
76 } } [list 0 13 1 13 2 5 3 6] | |
77 | |
78 # Run a big incr-merge operation on the db. | |
79 do_test 1.10 { sql1 { INSERT INTO t2(t2) VALUES('merge=2000,2') } } {} | |
80 do_test 1.11 { | |
81 sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" | |
82 } {1485 21485} | |
83 | |
84 do_test 1.12 { | |
85 for {set i 0} {$i < 1500} {incr i} { | |
86 sql2 "INSERT INTO t2 SELECT content FROM t2 WHERE docid = $i" | |
87 } | |
88 } {} | |
89 do_test 1.13 { | |
90 sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" | |
91 } {1485 21485 22985} | |
92 | |
93 do_test 1.14 { | |
94 sql2 "INSERT INTO t2(t2) VALUES('optimize')" | |
95 sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" | |
96 } {1485 21485 22985} | |
97 | |
98 do_test 1.15 { sql2 { | |
99 SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1 | |
100 } } {6 1} | |
101 } | |
102 } | |
103 | |
104 | |
105 finish_test | |
OLD | NEW |