| # 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.") |
| # -dbconfig SCRIPT (default "") |
| # |
| 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}." |
| set default(-dbconfig) "" |
| |
| 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 } |
| 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] } |
| foreach f [glob -nocomplain $testdir/../ext/rtree/*.test] { |
| lappend alltests $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 |
| fts2.test |
| mallocAll.test rtree.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 rtree3.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 "valgrind" -prefix "" -description { |
| Run the "veryquick" test suite with a couple of multi-process tests (that |
| fail under valgrind) omitted. |
| } -files [ |
| test_set $allquicktests -exclude *malloc* *ioerr* *fault* |
| ] -initialize { |
| set ::G(valgrind) 1 |
| } -shutdown { |
| unset -nocomplain ::G(valgrind) |
| } |
| |
| 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 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 |
| fts3defer.test fts3defer2.test fts3e.test fts3expr.test fts3expr2.test |
| fts3near.test fts3query.test fts3shared.test fts3snippet.test |
| |
| fts3fault.test fts3malloc.test fts3matchinfo.test |
| |
| fts3aux1.test fts3comp1.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 walnoshm.test |
| wal5.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_memstatus 0 |
| 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 |
| } |
| |
| test_suite "rtree" -description { |
| All R-tree related tests. Provides coverage of source file rtree.c. |
| } -files [glob -nocomplain $::testdir/../ext/rtree/*.test] |
| |
| test_suite "no_optimization" -description { |
| Run test scripts with optimizations disabled using the |
| sqlite3_test_control(SQLITE_TESTCTRL_OPTIMIZATIONS) interface. |
| } -files { |
| where.test where2.test where3.test where4.test where5.test |
| where6.test where7.test where8.test where9.test |
| whereA.test whereB.test wherelimit.test |
| select1.test select2.test select3.test select4.test select5.test |
| select7.test select8.test selectA.test selectC.test |
| } -dbconfig { |
| optimization_control $::dbhandle all 0 |
| } |
| |
| # 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 |
| set ::G(perm:dbconfig) $options(-dbconfig) |
| |
| uplevel $options(-initialize) |
| |
| foreach file [lsort $options(-files)] { |
| if {[file tail $file] == $file} { set file [file join $::testdir $file] } |
| slave_test_file $file |
| } |
| |
| uplevel $options(-shutdown) |
| |
| unset ::G(perm:name) |
| unset ::G(perm:prefix) |
| unset ::G(perm:presql) |
| unset ::G(perm:dbconfig) |
| } |
| |
| 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 |
| } |
| |
