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