67 lines
1.4 KiB
Plaintext
67 lines
1.4 KiB
Plaintext
# 2014 Dec 20
|
|
#
|
|
# 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.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
#
|
|
|
|
source [file join [file dirname [info script]] fts5_common.tcl]
|
|
set testprefix fts5optimize
|
|
|
|
# If SQLITE_ENABLE_FTS5 is defined, omit this file.
|
|
ifcapable !fts5 {
|
|
finish_test
|
|
return
|
|
}
|
|
|
|
proc rnddoc {nWord} {
|
|
set vocab {a b c d e f g h i j k l m n o p q r s t u v w x y z}
|
|
set nVocab [llength $vocab]
|
|
set ret [list]
|
|
for {set i 0} {$i < $nWord} {incr i} {
|
|
lappend ret [lindex $vocab [expr {int(rand() * $nVocab)}]]
|
|
}
|
|
return $ret
|
|
}
|
|
|
|
|
|
foreach {tn nStep} {
|
|
1 2
|
|
2 10
|
|
3 50
|
|
4 500
|
|
} {
|
|
if {$tn!=4} continue
|
|
reset_db
|
|
db func rnddoc rnddoc
|
|
do_execsql_test 1.$tn.1 {
|
|
CREATE VIRTUAL TABLE t1 USING fts5(x, y);
|
|
}
|
|
do_test 1.$tn.2 {
|
|
for {set i 0} {$i < $nStep} {incr i} {
|
|
execsql { INSERT INTO t1 VALUES( rnddoc(5), rnddoc(5) ) }
|
|
}
|
|
} {}
|
|
|
|
do_execsql_test 1.$tn.3 {
|
|
INSERT INTO t1(t1) VALUES('integrity-check');
|
|
}
|
|
|
|
do_execsql_test 1.$tn.4 {
|
|
INSERT INTO t1(t1) VALUES('optimize');
|
|
}
|
|
|
|
do_execsql_test 1.$tn.5 {
|
|
INSERT INTO t1(t1) VALUES('integrity-check');
|
|
}
|
|
}
|
|
|
|
finish_test
|
|
|