815 lines
23 KiB
Plaintext
815 lines
23 KiB
Plaintext
# 2008 June 21
|
|
#
|
|
# 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.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
db close
|
|
|
|
#-------------------------------------------------------------------------
|
|
# test_suite NAME OPTIONS
|
|
#
|
|
# where available options are:
|
|
#
|
|
# -description TITLE (default "")
|
|
# -initialize SCRIPT (default "")
|
|
# -shutdown SCRIPT (default "")
|
|
# -presql SQL (default "")
|
|
# -files LIST-OF-FILES (default $::ALLTESTS)
|
|
# -prefix NAME (default "$::NAME.")
|
|
#
|
|
proc test_suite {name args} {
|
|
|
|
set default(-shutdown) ""
|
|
set default(-initialize) ""
|
|
set default(-presql) ""
|
|
set default(-description) "no description supplied (fixme)"
|
|
set default(-files) ""
|
|
set default(-prefix) "${name}."
|
|
|
|
array set options [array get default]
|
|
if {[llength $args]%2} {
|
|
error "uneven number of options/switches passed to test_suite"
|
|
}
|
|
foreach {k v} $args {
|
|
set o [array names options ${k}*]
|
|
if {[llength $o]>1} { error "ambiguous option: $k" }
|
|
if {[llength $o]==0} { error "unknown option: $k" }
|
|
set options([lindex $o 0]) $v
|
|
}
|
|
|
|
set ::testspec($name) [array get options]
|
|
lappend ::testsuitelist $name
|
|
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
# test_set ARGS...
|
|
#
|
|
proc test_set {args} {
|
|
set isExclude 0
|
|
foreach a $args {
|
|
if {[string match -* $a]} {
|
|
switch -- $a {
|
|
-include { set isExclude 0 }
|
|
-exclude { set isExclude 1 }
|
|
default {
|
|
error "Unknown switch: $a"
|
|
}
|
|
}
|
|
} elseif {$isExclude == 0} {
|
|
foreach f $a { set t($f) 1 }
|
|
} else {
|
|
foreach f $a { array unset t $f }
|
|
}
|
|
}
|
|
|
|
return [array names t]
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Set up the following global list variables containing the names of
|
|
# various test scripts:
|
|
#
|
|
# $alltests
|
|
# $allquicktests
|
|
#
|
|
set alltests [list]
|
|
foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] }
|
|
if {$::tcl_platform(platform)!="unix"} {
|
|
set alltests [test_set $alltests -exclude crash.test crash2.test]
|
|
}
|
|
set alltests [test_set $alltests -exclude {
|
|
all.test async.test quick.test veryquick.test
|
|
memleak.test permutations.test soak.test fts3.test
|
|
mallocAll.test
|
|
}]
|
|
|
|
set allquicktests [test_set $alltests -exclude {
|
|
async2.test async3.test backup_ioerr.test corrupt.test
|
|
corruptC.test crash.test crash2.test crash3.test crash4.test crash5.test
|
|
crash6.test crash7.test delete3.test e_fts3.test fts3rnd.test
|
|
fkey_malloc.test fuzz.test fuzz3.test fuzz_malloc.test in2.test loadext.test
|
|
misc7.test mutex2.test notify2.test onefile.test pagerfault2.test
|
|
savepoint4.test savepoint6.test select9.test
|
|
speed1.test speed1p.test speed2.test speed3.test speed4.test
|
|
speed4p.test sqllimits1.test tkt2686.test thread001.test thread002.test
|
|
thread003.test thread004.test thread005.test trans2.test vacuum3.test
|
|
incrvacuum_ioerr.test autovacuum_crash.test btree8.test shared_err.test
|
|
vtab_err.test walslow.test walcrash.test
|
|
walthread.test
|
|
}]
|
|
if {[info exists ::env(QUICKTEST_INCLUDE)]} {
|
|
set allquicktests [concat $allquicktests $::env(QUICKTEST_INCLUDE)]
|
|
}
|
|
|
|
#############################################################################
|
|
# Start of tests
|
|
#
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Define the generic test suites:
|
|
#
|
|
# veryquick
|
|
# quick
|
|
# full
|
|
#
|
|
lappend ::testsuitelist xxx
|
|
|
|
test_suite "veryquick" -prefix "" -description {
|
|
"Very" quick test suite. Runs in less than 5 minutes on a workstation.
|
|
This test suite is the same as the "quick" tests, except that some files
|
|
that test malloc and IO errors are omitted.
|
|
} -files [
|
|
test_set $allquicktests -exclude *malloc* *ioerr* *fault*
|
|
]
|
|
|
|
test_suite "quick" -prefix "" -description {
|
|
Quick test suite. Runs in around 10 minutes on a workstation.
|
|
} -files [
|
|
test_set $allquicktests
|
|
]
|
|
|
|
test_suite "full" -prefix "" -description {
|
|
Full test suite. Takes a long time.
|
|
} -files [
|
|
test_set $alltests
|
|
] -initialize {
|
|
unset -nocomplain ::G(isquick)
|
|
}
|
|
|
|
test_suite "threads" -prefix "" -description {
|
|
All multi-threaded tests.
|
|
} -files {
|
|
notify2.test thread001.test thread002.test thread003.test
|
|
thread004.test thread005.test walthread.test
|
|
}
|
|
|
|
test_suite "fts3" -prefix "" -description {
|
|
All FTS3 tests except fts3malloc.test and fts3rnd.test.
|
|
} -files {
|
|
fts3aa.test fts3ab.test fts3ac.test fts3ad.test fts3ae.test
|
|
fts3af.test fts3ag.test fts3ah.test fts3ai.test fts3aj.test
|
|
fts3ak.test fts3al.test fts3am.test fts3an.test fts3ao.test
|
|
fts3atoken.test fts3b.test fts3c.test fts3cov.test fts3d.test
|
|
fts3e.test fts3expr.test fts3expr2.test fts3near.test
|
|
fts3query.test fts3snippet.test
|
|
}
|
|
|
|
|
|
lappend ::testsuitelist xxx
|
|
#-------------------------------------------------------------------------
|
|
# Define the coverage related test suites:
|
|
#
|
|
# coverage-wal
|
|
#
|
|
test_suite "coverage-wal" -description {
|
|
Coverage tests for file wal.c.
|
|
} -files {
|
|
wal.test wal2.test wal3.test walmode.test
|
|
walbak.test walhook.test walcrash2.test walcksum.test
|
|
walfault.test walbig.test
|
|
}
|
|
|
|
test_suite "coverage-pager" -description {
|
|
Coverage tests for file pager.c.
|
|
} -files {
|
|
pager1.test pager2.test pagerfault.test pagerfault2.test
|
|
walfault.test walbak.test journal2.test tkt-9d68c883.test
|
|
}
|
|
|
|
|
|
lappend ::testsuitelist xxx
|
|
#-------------------------------------------------------------------------
|
|
# Define the permutation test suites:
|
|
#
|
|
|
|
# Run some tests using pre-allocated page and scratch blocks.
|
|
#
|
|
test_suite "memsubsys1" -description {
|
|
Tests using pre-allocated page and scratch blocks
|
|
} -files [
|
|
test_set $::allquicktests -exclude ioerr5.test malloc5.test
|
|
] -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_pagecache 4096 24
|
|
sqlite3_config_scratch 25000 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_pagecache 0 0
|
|
sqlite3_config_scratch 0 0
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
|
|
# Run some tests using pre-allocated page and scratch blocks. This time
|
|
# the allocations are too small to use in most cases.
|
|
#
|
|
# Both ioerr5.test and malloc5.test are excluded because they test the
|
|
# sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality.
|
|
# This functionality is disabled if a pre-allocated page block is provided.
|
|
#
|
|
test_suite "memsubsys2" -description {
|
|
Tests using small pre-allocated page and scratch blocks
|
|
} -files [
|
|
test_set $::allquicktests -exclude ioerr5.test malloc5.test
|
|
] -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_pagecache 512 5
|
|
sqlite3_config_scratch 1000 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_pagecache 0 0
|
|
sqlite3_config_scratch 0 0
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
|
|
# Run all tests with the lookaside allocator disabled.
|
|
#
|
|
test_suite "nolookaside" -description {
|
|
OOM tests with lookaside disabled
|
|
} -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_lookaside 0 0
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_lookaside 100 500
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -files $::allquicktests
|
|
|
|
# Run some tests in SQLITE_CONFIG_SINGLETHREAD mode.
|
|
#
|
|
test_suite "singlethread" -description {
|
|
Tests run in SQLITE_CONFIG_SINGLETHREAD mode
|
|
} -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
catch {sqlite3_config singlethread}
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test types.test
|
|
types2.test types3.test
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
catch {sqlite3_config serialized}
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
|
|
test_suite "nomutex" -description {
|
|
Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open().
|
|
} -initialize {
|
|
rename sqlite3 sqlite3_nomutex
|
|
proc sqlite3 {args} {
|
|
if {[string range [lindex $args 0] 0 0] ne "-"} {
|
|
lappend args -fullmutex 0 -nomutex 1
|
|
}
|
|
uplevel [concat sqlite3_nomutex $args]
|
|
}
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test types.test
|
|
types2.test types3.test
|
|
} -shutdown {
|
|
rename sqlite3 {}
|
|
rename sqlite3_nomutex sqlite3
|
|
}
|
|
|
|
# Run some tests in SQLITE_CONFIG_MULTITHREAD mode.
|
|
#
|
|
test_suite "multithread" -description {
|
|
Tests run in SQLITE_CONFIG_MULTITHREAD mode
|
|
} -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
catch {sqlite3_config multithread}
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test types.test
|
|
types2.test types3.test
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
catch {sqlite3_config serialized}
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
|
|
# Run some tests in SQLITE_OPEN_FULLMUTEX mode.
|
|
#
|
|
test_suite "fullmutex" -description {
|
|
Tests run in SQLITE_OPEN_FULLMUTEX mode
|
|
} -initialize {
|
|
rename sqlite3 sqlite3_fullmutex
|
|
proc sqlite3 {args} {
|
|
if {[string range [lindex $args 0] 0 0] ne "-"} {
|
|
lappend args -nomutex 0 -fullmutex 1
|
|
}
|
|
uplevel [concat sqlite3_fullmutex $args]
|
|
}
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test types.test
|
|
types2.test types3.test
|
|
} -shutdown {
|
|
rename sqlite3 {}
|
|
rename sqlite3_fullmutex sqlite3
|
|
}
|
|
|
|
# Run some tests using the "onefile" demo.
|
|
#
|
|
test_suite "onefile" -description {
|
|
Run some tests using the "test_onefile.c" demo
|
|
} -initialize {
|
|
rename sqlite3 sqlite3_onefile
|
|
proc sqlite3 {args} {
|
|
if {[string range [lindex $args 0] 0 0] ne "-"} {
|
|
lappend args -vfs fs
|
|
}
|
|
uplevel [concat sqlite3_onefile $args]
|
|
}
|
|
} -files {
|
|
conflict.test insert.test insert2.test insert3.test
|
|
rollback.test select1.test select2.test select3.test
|
|
} -shutdown {
|
|
rename sqlite3 {}
|
|
rename sqlite3_onefile sqlite3
|
|
}
|
|
|
|
# Run some tests using UTF-16 databases.
|
|
#
|
|
test_suite "utf16" -description {
|
|
Run tests using UTF-16 databases
|
|
} -presql {
|
|
pragma encoding = 'UTF-16'
|
|
} -files {
|
|
alter.test alter3.test
|
|
auth.test bind.test blob.test capi2.test capi3.test collate1.test
|
|
collate2.test collate3.test collate4.test collate5.test collate6.test
|
|
conflict.test date.test delete.test expr.test fkey1.test func.test
|
|
hook.test index.test insert2.test insert.test interrupt.test in.test
|
|
intpkey.test ioerr.test join2.test join.test lastinsert.test
|
|
laststmtchanges.test limit.test lock2.test lock.test main.test
|
|
memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test
|
|
null.test progress.test quote.test rowid.test select1.test select2.test
|
|
select3.test select4.test select5.test select6.test sort.test
|
|
subselect.test tableapi.test table.test temptable.test
|
|
trace.test trigger1.test trigger2.test trigger3.test
|
|
trigger4.test types2.test types.test unique.test update.test
|
|
vacuum.test view.test where.test
|
|
}
|
|
|
|
# Run some tests in exclusive locking mode.
|
|
#
|
|
test_suite "exclusive" -description {
|
|
Run tests in exclusive locking mode.
|
|
} -presql {
|
|
pragma locking_mode = 'exclusive'
|
|
} -files {
|
|
rollback.test select1.test select2.test
|
|
malloc.test ioerr.test
|
|
}
|
|
|
|
# Run some tests in exclusive locking mode with truncated journals.
|
|
#
|
|
test_suite "exclusive-truncate" -description {
|
|
Run tests in exclusive locking mode and truncate journal mode.
|
|
} -presql {
|
|
pragma locking_mode = 'exclusive';
|
|
pragma journal_mode = TRUNCATE;
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test update.test malloc.test ioerr.test
|
|
}
|
|
|
|
# Run some tests in persistent journal mode.
|
|
#
|
|
test_suite "persistent_journal" -description {
|
|
Run tests in persistent-journal mode.
|
|
} -presql {
|
|
pragma journal_mode = persist
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test
|
|
}
|
|
|
|
# Run some tests in truncating journal mode.
|
|
#
|
|
test_suite "truncate_journal" -description {
|
|
Run tests in persistent-journal mode.
|
|
} -presql {
|
|
pragma journal_mode = truncate
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test
|
|
malloc.test ioerr.test
|
|
}
|
|
|
|
# Run some error tests in persistent journal mode.
|
|
#
|
|
test_suite "persistent_journal_error" -description {
|
|
Run malloc.test and ioerr.test in persistent-journal mode.
|
|
} -presql {
|
|
pragma journal_mode = persist
|
|
} -files {
|
|
malloc.test ioerr.test
|
|
}
|
|
|
|
# Run some tests in no journal mode.
|
|
#
|
|
test_suite "no_journal" -description {
|
|
Run tests in no-journal mode.
|
|
} -presql {
|
|
pragma journal_mode = persist
|
|
} -files {
|
|
delete.test delete2.test insert.test rollback.test select1.test
|
|
select2.test trans.test update.test vacuum.test
|
|
}
|
|
|
|
# Run some error tests in no journal mode.
|
|
#
|
|
test_suite "no_journal_error" -description {
|
|
Run malloc.test and ioerr.test in no-journal mode.
|
|
} -presql {
|
|
pragma journal_mode = persist
|
|
} -files {
|
|
malloc.test ioerr.test
|
|
}
|
|
|
|
# Run some crash-tests in autovacuum mode.
|
|
#
|
|
test_suite "autovacuum_crash" -description {
|
|
Run crash.test in autovacuum mode.
|
|
} -presql {
|
|
pragma auto_vacuum = 1
|
|
} -files crash.test
|
|
|
|
# Run some ioerr-tests in autovacuum mode.
|
|
#
|
|
test_suite "autovacuum_ioerr" -description {
|
|
Run ioerr.test in autovacuum mode.
|
|
} -presql {
|
|
pragma auto_vacuum = 1
|
|
} -files ioerr.test
|
|
|
|
# Run tests with an in-memory journal.
|
|
#
|
|
test_suite "inmemory_journal" -description {
|
|
Run tests with an in-memory journal file.
|
|
} -presql {
|
|
pragma journal_mode = 'memory'
|
|
} -files [test_set $::allquicktests -exclude {
|
|
# Exclude all tests that simulate IO errors.
|
|
autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test
|
|
ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test
|
|
vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test
|
|
e_fts3.test fts3cov.test fts3malloc.test fts3rnd.test
|
|
fts3snippet.test
|
|
|
|
# Exclude test scripts that use tcl IO to access journal files or count
|
|
# the number of fsync() calls.
|
|
pager.test exclusive.test jrnlmode.test sync.test misc1.test
|
|
journal1.test conflict.test crash8.test tkt3457.test io.test
|
|
journal3.test
|
|
|
|
pager1.test async4.test corrupt.test filefmt.test pager2.test
|
|
corrupt5.test corruptA.test pageropt.test
|
|
|
|
# Exclude stmt.test, which expects sub-journals to use temporary files.
|
|
stmt.test
|
|
|
|
# WAL mode is different.
|
|
wal*
|
|
}]
|
|
|
|
ifcapable mem3 {
|
|
test_suite "memsys3" -description {
|
|
Run tests using the allocator in mem3.c.
|
|
} -files [test_set $::allquicktests -exclude {
|
|
autovacuum.test delete3.test manydb.test
|
|
bigrow.test incrblob2.test memdb.test
|
|
bitvec.test index2.test memsubsys1.test
|
|
capi3c.test ioerr.test memsubsys2.test
|
|
capi3.test join3.test pagesize.test
|
|
collate5.test limit.test backup_ioerr.test
|
|
backup_malloc.test
|
|
}] -initialize {
|
|
catch {db close}
|
|
sqlite3_reset_auto_extension
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 25000000 0
|
|
sqlite3_config_lookaside 0 0
|
|
ifcapable mem5 {
|
|
# If both memsys3 and memsys5 are enabled in the build, the call to
|
|
# [sqlite3_config_heap] will initialize the system to use memsys5.
|
|
# The following overrides this preference and installs the memsys3
|
|
# allocator.
|
|
sqlite3_install_memsys3
|
|
}
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 0 0
|
|
sqlite3_config_lookaside 100 500
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
}
|
|
|
|
ifcapable mem5 {
|
|
test_suite "memsys5" -description {
|
|
Run tests using the allocator in mem5.c.
|
|
} -files [test_set $::allquicktests -exclude {
|
|
autovacuum.test delete3.test manydb.test
|
|
bigrow.test incrblob2.test memdb.test
|
|
bitvec.test index2.test memsubsys1.test
|
|
capi3c.test ioerr.test memsubsys2.test
|
|
capi3.test join3.test pagesize.test
|
|
collate5.test limit.test zeroblob.test
|
|
}] -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 25000000 64
|
|
sqlite3_config_lookaside 0 0
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 0 0
|
|
sqlite3_config_lookaside 100 500
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
|
|
test_suite "memsys5-2" -description {
|
|
Run tests using the allocator in mem5.c in a different configuration.
|
|
} -files {
|
|
select1.test
|
|
} -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 40000000 16
|
|
sqlite3_config_lookaside 0 0
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_heap 0 0
|
|
sqlite3_config_lookaside 100 500
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
}
|
|
|
|
ifcapable threadsafe {
|
|
test_suite "no_mutex_try" -description {
|
|
The sqlite3_mutex_try() interface always fails
|
|
} -files [
|
|
test_set $::allquicktests -exclude mutex1.test mutex2.test
|
|
] -initialize {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
install_mutex_counters 1
|
|
set ::disable_mutex_try 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
install_mutex_counters 0
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
}
|
|
}
|
|
|
|
# run_tests "crash_safe_append" -description {
|
|
# Run crash.test with persistent journals on a SAFE_APPEND file-system.
|
|
# } -initialize {
|
|
# rename crashsql sa_crashsql
|
|
# proc crashsql {args} {
|
|
# set options [lrange $args 0 [expr {[llength $args]-2}]]
|
|
# lappend options -char safe_append
|
|
# set sql [lindex $args end]
|
|
# lappend options "
|
|
# PRAGMA journal_mode=persistent;
|
|
# $sql
|
|
# "
|
|
# set fd [open test.db-journal w]
|
|
# puts $fd [string repeat 1234567890 100000]
|
|
# close $fd
|
|
# eval sa_crashsql $options
|
|
# }
|
|
# } -shutdown {
|
|
# rename crashsql {}
|
|
# rename sa_crashsql crashsql
|
|
# } -files crash.test
|
|
|
|
test_suite "safe_append" -description {
|
|
Run some tests on a SAFE_APPEND file-system.
|
|
} -initialize {
|
|
rename sqlite3 sqlite3_safeappend
|
|
proc sqlite3 {args} {
|
|
if {[string range [lindex $args 0] 0 0] ne "-"} {
|
|
lappend args -vfs devsym
|
|
}
|
|
uplevel [concat sqlite3_safeappend $args]
|
|
}
|
|
sqlite3_simulate_device -char safe_append
|
|
} -shutdown {
|
|
rename sqlite3 {}
|
|
rename sqlite3_shutdown sqlite3
|
|
} -files [
|
|
test_set $::allquicktests shared_err.test -exclude async3.test
|
|
]
|
|
|
|
# The set of tests to run on the alternative-pcache
|
|
set perm-alt-pcache-testset {
|
|
async.test
|
|
attach.test
|
|
delete.test delete2.test
|
|
index.test
|
|
insert.test insert2.test
|
|
join.test join2.test
|
|
rollback.test
|
|
select1.test select2.test
|
|
trans.test
|
|
update.test
|
|
}
|
|
|
|
foreach discard_rate {0 10 50 90 100} {
|
|
test_suite "pcache${discard_rate}" -description "
|
|
Alternative pcache implementation with ${discard_rate}% random discard
|
|
" -initialize "
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_alt_pcache 1 $discard_rate 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
" -shutdown {
|
|
catch {db close}
|
|
sqlite3_shutdown
|
|
sqlite3_config_alt_pcache 0 0 0
|
|
sqlite3_config_lookaside 100 500
|
|
install_malloc_faultsim 1
|
|
sqlite3_initialize
|
|
autoinstall_test_functions
|
|
} -files ${perm-alt-pcache-testset}
|
|
}
|
|
|
|
test_suite "journaltest" -description {
|
|
Check that pages are synced before being written (test_journal.c).
|
|
} -initialize {
|
|
catch {db close}
|
|
register_jt_vfs -default ""
|
|
} -shutdown {
|
|
unregister_jt_vfs
|
|
} -files [test_set $::allquicktests -exclude {
|
|
wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test
|
|
async4.test bigfile.test
|
|
}]
|
|
|
|
if {[info commands register_demovfs] != ""} {
|
|
test_suite "demovfs" -description {
|
|
Check that the demovfs (code in test_demovfs.c) more or less works.
|
|
} -initialize {
|
|
register_demovfs
|
|
} -shutdown {
|
|
unregister_demovfs
|
|
} -files {
|
|
insert.test insert2.test insert3.test rollback.test
|
|
select1.test select2.test select3.test
|
|
}
|
|
}
|
|
|
|
test_suite "wal" -description {
|
|
Run tests with journal_mode=WAL
|
|
} -initialize {
|
|
set ::G(savepoint6_iterations) 100
|
|
} -shutdown {
|
|
unset -nocomplain ::G(savepoint6_iterations)
|
|
} -files {
|
|
savepoint.test savepoint2.test savepoint6.test
|
|
trans.test avtrans.test
|
|
|
|
fts3aa.test fts3ab.test fts3ac.test fts3ad.test
|
|
fts3ae.test fts3af.test fts3ag.test fts3ah.test
|
|
fts3ai.test fts3aj.test fts3ak.test fts3al.test
|
|
fts3am.test fts3an.test fts3ao.test fts3b.test
|
|
fts3c.test fts3d.test fts3e.test fts3query.test
|
|
}
|
|
# End of tests
|
|
#############################################################################
|
|
|
|
# run_tests NAME OPTIONS
|
|
#
|
|
# where available options are:
|
|
#
|
|
# -description TITLE
|
|
# -initialize SCRIPT
|
|
# -shutdown SCRIPT
|
|
# -presql SQL
|
|
# -files LIST-OF-FILES
|
|
# -prefix NAME
|
|
#
|
|
proc run_tests {name args} {
|
|
array set options $args
|
|
|
|
set ::G(perm:name) $name
|
|
set ::G(perm:prefix) $options(-prefix)
|
|
set ::G(perm:presql) $options(-presql)
|
|
set ::G(isquick) 1
|
|
|
|
uplevel $options(-initialize)
|
|
|
|
foreach file [lsort $options(-files)] {
|
|
slave_test_file $::testdir/$file
|
|
}
|
|
|
|
uplevel $options(-shutdown)
|
|
|
|
unset ::G(perm:name)
|
|
unset ::G(perm:prefix)
|
|
unset ::G(perm:presql)
|
|
}
|
|
|
|
proc run_test_suite {name} {
|
|
if {[info exists ::testspec($name)]==0} {
|
|
error "No such test suite: $name"
|
|
}
|
|
uplevel run_tests $name $::testspec($name)
|
|
}
|
|
|
|
proc help {} {
|
|
puts "Usage: $::argv0 TESTSUITE ?TESTFILE?"
|
|
puts ""
|
|
puts "Available test-suites are:"
|
|
foreach k $::testsuitelist {
|
|
if {[info exists ::testspec($k)]==0} {
|
|
puts " ----------------------------------------"
|
|
puts ""
|
|
} else {
|
|
array set o $::testspec($k)
|
|
puts "Test suite: \"$k\""
|
|
set d [string trim $o(-description)]
|
|
set d [regsub {\n *} $d "\n "]
|
|
puts " $d"
|
|
puts ""
|
|
}
|
|
}
|
|
exit -1
|
|
}
|
|
|
|
if {[info script] == $argv0} {
|
|
proc main {argv} {
|
|
if {[llength $argv]==0} {
|
|
help
|
|
} else {
|
|
set suite [lindex $argv 0]
|
|
if {[info exists ::testspec($suite)]==0} help
|
|
set extra ""
|
|
if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] }
|
|
eval run_tests $suite $::testspec($suite) $extra
|
|
}
|
|
}
|
|
main $argv
|
|
finish_test
|
|
}
|
|
|