1# 2008 June 21 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# 12 13set testdir [file dirname $argv0] 14source $testdir/tester.tcl 15db close 16 17#------------------------------------------------------------------------- 18# test_suite NAME OPTIONS 19# 20# where available options are: 21# 22# -description TITLE (default "") 23# -initialize SCRIPT (default "") 24# -shutdown SCRIPT (default "") 25# -presql SQL (default "") 26# -files LIST-OF-FILES (default $::ALLTESTS) 27# -prefix NAME (default "$::NAME.") 28# -dbconfig SCRIPT (default "") 29# 30proc test_suite {name args} { 31 32 set default(-shutdown) "" 33 set default(-initialize) "" 34 set default(-presql) "" 35 set default(-description) "no description supplied (fixme)" 36 set default(-files) "" 37 set default(-prefix) "${name}." 38 set default(-dbconfig) "" 39 40 array set options [array get default] 41 if {[llength $args]%2} { 42 error "uneven number of options/switches passed to test_suite" 43 } 44 foreach {k v} $args { 45 set o [array names options ${k}*] 46 if {[llength $o]>1} { error "ambiguous option: $k" } 47 if {[llength $o]==0} { error "unknown option: $k" } 48 set options([lindex $o 0]) $v 49 } 50 51 set ::testspec($name) [array get options] 52 lappend ::testsuitelist $name 53} 54 55#------------------------------------------------------------------------- 56# test_set ARGS... 57# 58proc test_set {args} { 59 set isExclude 0 60 foreach a $args { 61 if {[string match -* $a]} { 62 switch -- $a { 63 -include { set isExclude 0 } 64 -exclude { set isExclude 1 } 65 default { 66 error "Unknown switch: $a" 67 } 68 } 69 } elseif {$isExclude == 0} { 70 foreach f $a { set t($f) 1 } 71 } else { 72 foreach f $a { array unset t $f } 73 foreach f $a { array unset t */$f } 74 } 75 } 76 77 return [array names t] 78} 79 80#------------------------------------------------------------------------- 81# Set up the following global list variables containing the names of 82# various test scripts: 83# 84# $alltests 85# $allquicktests 86# 87set alltests [list] 88foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] } 89foreach f [glob -nocomplain $testdir/../ext/rtree/*.test] { 90 lappend alltests $f 91} 92 93if {$::tcl_platform(platform)!="unix"} { 94 set alltests [test_set $alltests -exclude crash.test crash2.test] 95} 96set alltests [test_set $alltests -exclude { 97 all.test async.test quick.test veryquick.test 98 memleak.test permutations.test soak.test fts3.test 99 mallocAll.test rtree.test full.test extraquick.test 100}] 101 102set allquicktests [test_set $alltests -exclude { 103 async2.test async3.test backup_ioerr.test corrupt.test 104 corruptC.test crash.test crash2.test crash3.test crash4.test crash5.test 105 crash6.test crash7.test delete3.test e_fts3.test fts3rnd.test 106 fkey_malloc.test fuzz.test fuzz3.test fuzz_malloc.test in2.test loadext.test 107 misc7.test mutex2.test notify2.test onefile.test pagerfault2.test 108 savepoint4.test savepoint6.test select9.test 109 speed1.test speed1p.test speed2.test speed3.test speed4.test 110 speed4p.test sqllimits1.test tkt2686.test thread001.test thread002.test 111 thread003.test thread004.test thread005.test trans2.test vacuum3.test 112 incrvacuum_ioerr.test autovacuum_crash.test btree8.test shared_err.test 113 vtab_err.test walslow.test walcrash.test walcrash3.test 114 walthread.test rtree3.test indexfault.test securedel2.test 115 sort3.test sort4.test fts4growth.test fts4growth2.test 116 bigsort.test rbu.test walprotocol.test mmap4.test fuzzer2.test 117 walcrash2.test e_fkey.test backup.test 118 119 fts4merge.test fts4merge2.test fts4merge4.test fts4check.test 120 fts3cov.test fts3snippet.test fts3corrupt2.test fts3an.test 121 fts3defer.test fts4langid.test fts3sort.test fts5unicode.test 122 123 rtree4.test 124}] 125if {[info exists ::env(QUICKTEST_INCLUDE)]} { 126 set allquicktests [concat $allquicktests $::env(QUICKTEST_INCLUDE)] 127} 128if {[info exists ::env(QUICKTEST_OMIT)]} { 129 foreach x [split $::env(QUICKTEST_OMIT) ,] { 130 regsub -all \\y$x\\y $allquicktests {} allquicktests 131 } 132} 133 134# If the TEST_FAILURE environment variable is set, it means that we what to 135# deliberately provoke test failures in order to test the test infrastructure. 136# Only the main.test module is needed for this. 137# 138if {[info exists ::env(TEST_FAILURE)]} { 139 set allquicktests main.test 140} 141 142############################################################################# 143# Start of tests 144# 145 146#------------------------------------------------------------------------- 147# Define the generic test suites: 148# 149# veryquick 150# quick 151# full 152# 153lappend ::testsuitelist xxx 154 155test_suite "veryquick" -prefix "" -description { 156 "Very" quick test suite. Runs in minutes on a workstation. 157 This test suite is the same as the "quick" tests, except that some files 158 that test malloc and IO errors are omitted. 159} -files [ 160 test_set $allquicktests -exclude *malloc* *ioerr* *fault* *bigfile* *_err* 161] 162 163test_suite "extraquick" -prefix "" -description { 164 "Extra" quick test suite. Runs in a few minutes on a workstation. 165 This test suite is the same as the "veryquick" tests, except that 166 slower tests are omitted. 167} -files [ 168 test_set $allquicktests -exclude *malloc* *ioerr* *fault* *bigfile* *_err* \ 169 wal3.test fts4merge* sort2.test mmap1.test walcrash* \ 170 percentile.test where8m.test walcksum.test savepoint3.test \ 171 fuzzer1.test fuzzer3.test fts3expr3.test 172] 173 174test_suite "mmap" -prefix "mm-" -description { 175 Similar to veryquick. Except with memory mapping enabled. 176} -presql { 177 pragma mmap_size = 268435456; 178} -files [ 179 test_set $allquicktests -exclude *malloc* *ioerr* *fault* -include malloc.test 180] 181 182test_suite "valgrind" -prefix "" -description { 183 Run the "veryquick" test suite with a couple of multi-process tests (that 184 fail under valgrind) omitted. 185} -files [ 186 test_set $allquicktests -exclude *malloc* *ioerr* *fault* *_err* wal.test \ 187 shell*.test crash8.test atof1.test selectG.test \ 188 tkt-fc62af4523.test numindex1.test 189] -initialize { 190 set ::G(valgrind) 1 191} -shutdown { 192 unset -nocomplain ::G(valgrind) 193} 194 195test_suite "valgrind-nolookaside" -prefix "" -description { 196 Run the "veryquick" test suite with a couple of multi-process tests (that 197 fail under valgrind) omitted. 198} -files [ 199 test_set $allquicktests -exclude *malloc* *ioerr* *fault* *_err* \ 200 wal.test atof1.test 201] -initialize { 202 set ::G(valgrind) 1 203 catch {db close} 204 sqlite3_shutdown 205 sqlite3_config_lookaside 0 0 206 sqlite3_initialize 207 autoinstall_test_functions 208} -shutdown { 209 catch {db close} 210 sqlite3_shutdown 211 sqlite3_config_lookaside 100 500 212 sqlite3_initialize 213 autoinstall_test_functions 214 unset -nocomplain ::G(valgrind) 215} 216 217 218test_suite "quick" -prefix "" -description { 219 Quick test suite. Runs in around 10 minutes on a workstation. 220} -files [ 221 test_set $allquicktests 222] 223 224test_suite "full" -prefix "" -description { 225 Full test suite. Takes a long time. 226} -files [ 227 test_set $alltests 228] -initialize { 229 unset -nocomplain ::G(isquick) 230} 231 232test_suite "threads" -prefix "" -description { 233 All multi-threaded tests. 234} -files { 235 notify2.test thread001.test thread002.test thread003.test 236 thread004.test thread005.test walthread.test 237} 238 239test_suite "fts3" -prefix "" -description { 240 All FTS3 tests except fts3rnd.test. 241} -files { 242 fts3aa.test fts3ab.test fts3ac.test fts3ad.test fts3ae.test 243 fts3af.test fts3ag.test fts3ah.test fts3ai.test fts3aj.test 244 fts3ak.test fts3al.test fts3am.test fts3an.test fts3ao.test 245 fts3atoken.test fts3b.test fts3c.test fts3cov.test fts3d.test 246 fts3defer.test fts3defer2.test fts3e.test fts3expr.test fts3expr2.test 247 fts3expr3.test 248 fts3near.test fts3query.test fts3shared.test fts3snippet.test 249 fts3sort.test 250 fts3fault.test fts3malloc.test fts3matchinfo.test 251 fts3aux1.test fts3comp1.test fts3auto.test 252 fts4aa.test fts4content.test 253 fts3conf.test fts3prefix.test fts3fault2.test fts3corrupt.test 254 fts3corrupt2.test fts3first.test fts4langid.test fts4merge.test 255 fts4check.test fts4unicode.test fts4noti.test 256 fts3varint.test 257 fts4growth.test fts4growth2.test 258} 259 260test_suite "fts5" -prefix "" -description { 261 All FTS5 tests. 262} -files [glob -nocomplain $::testdir/../ext/fts5/test/*.test] 263 264test_suite "fts5-light" -prefix "" -description { 265 All FTS5 tests. 266} -files [ 267 test_set \ 268 [glob -nocomplain $::testdir/../ext/fts5/test/*.test] \ 269 -exclude *corrupt* *fault* *big* *fts5aj* 270] 271 272test_suite "nofaultsim" -prefix "" -description { 273 "Very" quick test suite. Runs in less than 5 minutes on a workstation. 274 This test suite is the same as the "quick" tests, except that some files 275 that test malloc and IO errors are omitted. 276} -files [ 277 test_set $allquicktests -exclude *malloc* *ioerr* *fault* *_err* 278] -initialize { 279 catch {db close} 280 sqlite3_shutdown 281 install_malloc_faultsim 0 282 sqlite3_initialize 283 autoinstall_test_functions 284} -shutdown { 285 unset -nocomplain ::G(valgrind) 286} 287 288test_suite "queryplanner" -prefix "" -description { 289 Tests of the query planner and query optimizer 290} -files { 291 alter2.test alter3.test alter4.test alter.test analyze3.test 292 analyze4.test analyze5.test analyze6.test analyze7.test analyze8.test 293 analyze.test attach2.test attach3.test attach4.test 294 attach.test autoinc.test autoindex1.test between.test cast.test 295 check.test closure01.test coalesce.test collate1.test collate2.test 296 collate3.test collate4.test collate5.test collate6.test collate7.test 297 collate8.test collate9.test collateA.test colmeta.test colname.test 298 conflict.test count.test coveridxscan.test createtab.test cse.test 299 date.test dbstatus2.test dbstatus.test default.test delete2.test 300 delete3.test delete.test descidx1.test descidx2.test descidx3.test 301 distinctagg.test distinct.test e_createtable.test e_delete.test 302 e_droptrigger.test e_dropview.test e_expr.test e_insert.test 303 eqp.test e_reindex.test e_resolve.test e_select2.test e_select.test 304 e_update.test exists.test expr.test fkey1.test fkey2.test fkey3.test 305 fkey4.test fkey5.test func2.test func3.test func.test 306 in3.test in4.test in5.test index2.test index3.test 307 index4.test index5.test indexedby.test index.test 308 insert2.test insert3.test insert4.test insert5.test insert.test 309 instr.test in.test intpkey.test join2.test join3.test join4.test 310 join5.test join6.test join.test like2.test like.test limit.test 311 minmax2.test minmax3.test minmax4.test minmax.test misc1.test misc2.test 312 misc3.test misc4.test misc5.test misc6.test misc7.test orderby1.test 313 orderby2.test orderby3.test orderby4.test randexpr1.test regexp1.test 314 reindex.test rowhash.test rowid.test schema2.test schema3.test 315 schema4.test schema5.test schema.test 316 select1.test select2.test select3.test select4.test select5.test 317 select6.test select7.test select8.test select9.test selectA.test 318 selectB.test selectC.test selectD.test selectE.test sidedelete.test 319 sort.test spellfix.test subquery2.test subquery.test subselect.test 320 substr.test tkt-02a8e81d44.test tkt1435.test tkt1443.test tkt1444.test 321 tkt1449.test tkt1473.test tkt1501.test tkt1512.test tkt1514.test 322 tkt1536.test tkt1537.test tkt1567.test tkt1644.test tkt1667.test 323 tkt1873.test tkt2141.test tkt2192.test tkt2213.test tkt2251.test 324 tkt2285.test tkt2332.test tkt2339.test tkt2391.test tkt2409.test 325 tkt2450.test tkt2565.test tkt2640.test tkt2643.test tkt2686.test 326 tkt-26ff0c2d1e.test tkt2767.test tkt2817.test tkt2820.test tkt2822.test 327 tkt2832.test tkt2854.test tkt2920.test tkt2927.test tkt2942.test 328 tkt-2a5629202f.test tkt-2d1a5c67d.test tkt-2ea2425d34.test tkt3080.test 329 tkt3093.test tkt3121.test tkt-31338dca7e.test tkt-313723c356.test 330 tkt3201.test tkt3292.test tkt3298.test tkt3334.test tkt3346.test 331 tkt3357.test tkt3419.test tkt3424.test tkt3442.test tkt3457.test 332 tkt3461.test tkt3493.test tkt3508.test tkt3522.test tkt3527.test 333 tkt3541.test tkt3554.test tkt3581.test tkt35xx.test tkt3630.test 334 tkt3718.test tkt3731.test tkt3757.test tkt3761.test tkt3762.test 335 tkt3773.test tkt3791.test tkt3793.test tkt3810.test tkt3824.test 336 tkt3832.test tkt3838.test tkt3841.test tkt-385a5b56b9.test tkt3871.test 337 tkt3879.test tkt-38cb5df375.test tkt3911.test tkt3918.test tkt3922.test 338 tkt3929.test tkt3935.test tkt3992.test tkt3997.test tkt-3998683a16.test 339 tkt-3a77c9714e.test tkt-3fe897352e.test tkt4018.test tkt-4a03edc4c8.test 340 tkt-4dd95f6943.test tkt-54844eea3f.test tkt-5d863f876e.test 341 tkt-5e10420e8d.test tkt-5ee23731f.test tkt-6bfb98dfc0.test 342 tkt-752e1646fc.test tkt-78e04e52ea.test tkt-7a31705a7e6.test 343 tkt-7bbfb7d442.test tkt-80ba201079.test tkt-80e031a00f.test 344 tkt-8454a207b9.test tkt-91e2e8ba6f.test tkt-94c04eaadb.test 345 tkt-9d68c883.test tkt-a7b7803e.test tkt-b1d3a2e531.test 346 tkt-b351d95f9.test tkt-b72787b1.test tkt-bd484a090c.test 347 tkt-bdc6bbbb38.test tkt-c48d99d690.test tkt-cbd054fa6b.test 348 tkt-d11f09d36e.test tkt-d635236375.test tkt-d82e3f3721.test 349 tkt-f3e5abed55.test tkt-f777251dc7a.test tkt-f7b4edec.test 350 tkt-f973c7ac31.test tkt-fa7bf5ec.test tkt-fc62af4523.test 351 tkt-fc7bd6358f.test trigger1.test trigger2.test trigger3.test 352 trigger4.test trigger5.test trigger6.test trigger7.test trigger8.test 353 trigger9.test triggerA.test triggerB.test triggerC.test triggerD.test 354 types2.test types3.test types.test unique.test unordered.test 355 update.test view.test vtab1.test vtab2.test vtab3.test vtab4.test 356 vtab5.test vtab6.test vtab7.test vtab8.test vtab9.test vtab_alter.test 357 vtabA.test vtabB.test vtabC.test vtabD.test vtabE.test 358 vtabF.test where2.test where3.test where4.test where5.test where6.test 359 where7.test where8m.test where8.test where9.test whereA.test whereB.test 360 whereC.test whereD.test whereE.test whereF.test wherelimit.test 361 where.test 362} 363 364test_suite "vfslog" -prefix "" -description { 365 "Vfslog" quick test suite. Like "veryquick" except does not omits 366 a few tests that do not work with a version 1 VFS. And the quota* tests, 367 which do not work with a VFS that uses the pVfs argument passed to 368 sqlite3_vfs methods. 369} -files [ 370 test_set $allquicktests -exclude *malloc* *ioerr* *fault* oserror.test \ 371 pager1.test syscall.test sysfault.test tkt3457.test quota* superlock* \ 372 wal* mmap* 373] 374 375lappend ::testsuitelist xxx 376#------------------------------------------------------------------------- 377# Define the coverage related test suites: 378# 379# coverage-wal 380# 381test_suite "coverage-wal" -description { 382 Coverage tests for file wal.c. 383} -files { 384 wal.test wal2.test wal3.test walmode.test 385 walbak.test walhook.test walcrash2.test walcksum.test 386 walfault.test walbig.test walnoshm.test 387 wal5.test 388} 389 390test_suite "coverage-pager" -description { 391 Coverage tests for file pager.c. 392} -files { 393 pager1.test pager2.test pagerfault.test pagerfault2.test 394 walfault.test walbak.test journal2.test tkt-9d68c883.test 395} 396 397test_suite "coverage-analyze" -description { 398 Coverage tests for file analyze.c. 399} -files { 400 analyze3.test analyze4.test analyze5.test analyze6.test 401 analyze7.test analyze8.test analyze9.test analyzeA.test 402 analyze.test analyzeB.test mallocA.test 403} 404 405test_suite "coverage-sorter" -description { 406 Coverage tests for file vdbesort.c. 407} -files { 408 sort.test sortfault.test 409} 410 411 412lappend ::testsuitelist xxx 413#------------------------------------------------------------------------- 414# Define the permutation test suites: 415# 416 417# Run some tests using pre-allocated page and scratch blocks. 418# 419# mmap1.test is excluded because a good number of its tests depend on 420# the page-cache being larger than the database. But this permutation 421# causes the effective limit on the page-cache to be just 24 pages. 422# 423test_suite "memsubsys1" -description { 424 Tests using pre-allocated page and scratch blocks 425} -files [ 426 test_set $::allquicktests -exclude ioerr5.test malloc5.test mmap1.test 427] -initialize { 428 test_set_config_pagecache 4096 24 429 catch {db close} 430 sqlite3_shutdown 431 sqlite3_config_scratch 25000 1 432 sqlite3_initialize 433 autoinstall_test_functions 434} -shutdown { 435 test_restore_config_pagecache 436 catch {db close} 437 sqlite3_shutdown 438 sqlite3_config_scratch 0 0 439 sqlite3_initialize 440 autoinstall_test_functions 441} 442 443# Run some tests using pre-allocated page and scratch blocks. This time 444# the allocations are too small to use in most cases. 445# 446# Both ioerr5.test and malloc5.test are excluded because they test the 447# sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality. 448# This functionality is disabled if a pre-allocated page block is provided. 449# 450test_suite "memsubsys2" -description { 451 Tests using small pre-allocated page and scratch blocks 452} -files [ 453 test_set $::allquicktests -exclude ioerr5.test malloc5.test 454] -initialize { 455 test_set_config_pagecache 512 5 456 catch {db close} 457 sqlite3_shutdown 458 sqlite3_config_scratch 1000 1 459 sqlite3_initialize 460 autoinstall_test_functions 461} -shutdown { 462 test_restore_config_pagecache 463 catch {db close} 464 sqlite3_shutdown 465 sqlite3_config_scratch 0 0 466 sqlite3_initialize 467 autoinstall_test_functions 468} 469 470# Run all tests with the lookaside allocator disabled. 471# 472test_suite "nolookaside" -description { 473 OOM tests with lookaside disabled 474} -initialize { 475 catch {db close} 476 sqlite3_shutdown 477 sqlite3_config_lookaside 0 0 478 sqlite3_initialize 479 autoinstall_test_functions 480} -shutdown { 481 catch {db close} 482 sqlite3_shutdown 483 sqlite3_config_lookaside 100 500 484 sqlite3_initialize 485 autoinstall_test_functions 486} -files $::allquicktests 487 488# Run some tests in SQLITE_CONFIG_SINGLETHREAD mode. 489# 490test_suite "singlethread" -description { 491 Tests run in SQLITE_CONFIG_SINGLETHREAD mode 492} -initialize { 493 catch {db close} 494 sqlite3_shutdown 495 catch {sqlite3_config singlethread} 496 sqlite3_initialize 497 autoinstall_test_functions 498} -files { 499 delete.test delete2.test insert.test rollback.test select1.test 500 select2.test trans.test update.test vacuum.test types.test 501 types2.test types3.test 502} -shutdown { 503 catch {db close} 504 sqlite3_shutdown 505 catch {sqlite3_config serialized} 506 sqlite3_initialize 507 autoinstall_test_functions 508} 509 510test_suite "nomutex" -description { 511 Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open(). 512} -initialize { 513 rename sqlite3 sqlite3_nomutex 514 proc sqlite3 {args} { 515 if {[string range [lindex $args 0] 0 0] ne "-"} { 516 lappend args -fullmutex 0 -nomutex 1 517 } 518 uplevel [concat sqlite3_nomutex $args] 519 } 520} -files { 521 delete.test delete2.test insert.test rollback.test select1.test 522 select2.test trans.test update.test vacuum.test types.test 523 types2.test types3.test 524} -shutdown { 525 rename sqlite3 {} 526 rename sqlite3_nomutex sqlite3 527} 528 529# Run some tests in SQLITE_CONFIG_MULTITHREAD mode. 530# 531test_suite "multithread" -description { 532 Tests run in SQLITE_CONFIG_MULTITHREAD mode 533} -initialize { 534 catch {db close} 535 sqlite3_shutdown 536 catch {sqlite3_config multithread} 537 sqlite3_initialize 538 autoinstall_test_functions 539} -files { 540 delete.test delete2.test insert.test rollback.test select1.test 541 select2.test trans.test update.test vacuum.test types.test 542 types2.test types3.test sort4.test 543} -shutdown { 544 catch {db close} 545 sqlite3_shutdown 546 catch {sqlite3_config serialized} 547 sqlite3_initialize 548 autoinstall_test_functions 549} 550 551# Run some tests in SQLITE_OPEN_FULLMUTEX mode. 552# 553test_suite "fullmutex" -description { 554 Tests run in SQLITE_OPEN_FULLMUTEX mode 555} -initialize { 556 rename sqlite3 sqlite3_fullmutex 557 proc sqlite3 {args} { 558 if {[string range [lindex $args 0] 0 0] ne "-"} { 559 lappend args -nomutex 0 -fullmutex 1 560 } 561 uplevel [concat sqlite3_fullmutex $args] 562 } 563} -files { 564 delete.test delete2.test insert.test rollback.test select1.test 565 select2.test trans.test update.test vacuum.test types.test 566 types2.test types3.test 567} -shutdown { 568 rename sqlite3 {} 569 rename sqlite3_fullmutex sqlite3 570} 571 572# Run some tests using the "onefile" demo. 573# 574test_suite "onefile" -description { 575 Run some tests using the "test_onefile.c" demo 576} -initialize { 577 rename sqlite3 sqlite3_onefile 578 proc sqlite3 {args} { 579 if {[string range [lindex $args 0] 0 0] ne "-"} { 580 lappend args -vfs fs 581 } 582 uplevel [concat sqlite3_onefile $args] 583 } 584} -files { 585 conflict.test insert.test insert2.test insert3.test 586 rollback.test select1.test select2.test select3.test 587} -shutdown { 588 rename sqlite3 {} 589 rename sqlite3_onefile sqlite3 590} 591 592# Run some tests using UTF-16 databases. 593# 594test_suite "utf16" -description { 595 Run tests using UTF-16 databases 596} -presql { 597 pragma encoding = 'UTF-16' 598} -files { 599 alter.test alter3.test 600 analyze.test analyze3.test analyze4.test analyze5.test analyze6.test 601 analyze7.test analyze8.test analyze9.test analyzeA.test analyzeB.test 602 auth.test bind.test blob.test capi2.test capi3.test collate1.test 603 collate2.test collate3.test collate4.test collate5.test collate6.test 604 conflict.test date.test delete.test expr.test fkey1.test func.test 605 hook.test index.test insert2.test insert.test interrupt.test in.test 606 intpkey.test ioerr.test join2.test join.test lastinsert.test 607 laststmtchanges.test limit.test lock2.test lock.test main.test 608 memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test 609 null.test progress.test quote.test rowid.test select1.test select2.test 610 select3.test select4.test select5.test select6.test sort.test 611 subselect.test tableapi.test table.test temptable.test 612 trace.test trigger1.test trigger2.test trigger3.test 613 trigger4.test types2.test types.test unique.test update.test 614 vacuum.test view.test where.test 615} 616 617# Run some tests in exclusive locking mode. 618# 619test_suite "exclusive" -description { 620 Run tests in exclusive locking mode. 621} -presql { 622 pragma locking_mode = 'exclusive' 623} -files { 624 rollback.test select1.test select2.test 625 malloc.test ioerr.test 626} 627 628# Run some tests in exclusive locking mode with truncated journals. 629# 630test_suite "exclusive-truncate" -description { 631 Run tests in exclusive locking mode and truncate journal mode. 632} -presql { 633 pragma locking_mode = 'exclusive'; 634 pragma journal_mode = TRUNCATE; 635} -files { 636 delete.test delete2.test insert.test rollback.test select1.test 637 select2.test update.test malloc.test ioerr.test 638} 639 640# Run some tests in persistent journal mode. 641# 642test_suite "persistent_journal" -description { 643 Run tests in persistent-journal mode. 644} -presql { 645 pragma journal_mode = persist 646} -files { 647 delete.test delete2.test insert.test rollback.test select1.test 648 select2.test trans.test update.test vacuum.test 649} 650 651# Run some tests in truncating journal mode. 652# 653test_suite "truncate_journal" -description { 654 Run tests in persistent-journal mode. 655} -presql { 656 pragma journal_mode = truncate 657} -files { 658 delete.test delete2.test insert.test rollback.test select1.test 659 select2.test trans.test update.test vacuum.test 660 malloc.test ioerr.test 661} 662 663# Run some error tests in persistent journal mode. 664# 665test_suite "persistent_journal_error" -description { 666 Run malloc.test and ioerr.test in persistent-journal mode. 667} -presql { 668 pragma journal_mode = persist 669} -files { 670 malloc.test ioerr.test 671} 672 673# Run some tests in no journal mode. 674# 675test_suite "no_journal" -description { 676 Run tests in no-journal mode. 677} -presql { 678 pragma journal_mode = persist 679} -files { 680 delete.test delete2.test insert.test rollback.test select1.test 681 select2.test trans.test update.test vacuum.test 682} 683 684# Run some error tests in no journal mode. 685# 686test_suite "no_journal_error" -description { 687 Run malloc.test and ioerr.test in no-journal mode. 688} -presql { 689 pragma journal_mode = persist 690} -files { 691 malloc.test ioerr.test 692} 693 694# Run some crash-tests in autovacuum mode. 695# 696test_suite "autovacuum_crash" -description { 697 Run crash.test in autovacuum mode. 698} -presql { 699 pragma auto_vacuum = 1 700} -files crash.test 701 702# Run some ioerr-tests in autovacuum mode. 703# 704test_suite "autovacuum_ioerr" -description { 705 Run ioerr.test in autovacuum mode. 706} -presql { 707 pragma auto_vacuum = 1 708} -files ioerr.test 709 710# Run tests with an in-memory journal. 711# 712test_suite "inmemory_journal" -description { 713 Run tests with an in-memory journal file. 714} -presql { 715 pragma journal_mode = 'memory' 716} -files [test_set $::allquicktests -exclude { 717 # Exclude all tests that simulate IO errors. 718 autovacuum_ioerr2.test cffault.test incrvacuum_ioerr.test ioerr.test 719 ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test 720 vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test 721 e_fts3.test fts3cov.test fts3malloc.test fts3rnd.test 722 fts3snippet.test mmapfault.test 723 724 # Exclude test scripts that use tcl IO to access journal files or count 725 # the number of fsync() calls. 726 pager.test exclusive.test jrnlmode.test sync.test misc1.test 727 journal1.test conflict.test crash8.test tkt3457.test io.test 728 journal3.test 8_3_names.test 729 730 pager1.test async4.test corrupt.test filefmt.test pager2.test 731 corrupt5.test corruptA.test pageropt.test 732 733 # Exclude stmt.test, which expects sub-journals to use temporary files. 734 stmt.test symlink.test 735 736 zerodamage.test 737 738 # WAL mode is different. 739 wal* tkt-2d1a5c67d.test backcompat.test e_wal* rowallock.test 740}] 741 742ifcapable mem3 { 743 test_suite "memsys3" -description { 744 Run tests using the allocator in mem3.c. 745 } -files [test_set $::allquicktests -exclude { 746 autovacuum.test delete3.test manydb.test 747 bigrow.test incrblob2.test memdb.test 748 bitvec.test index2.test memsubsys1.test 749 capi3c.test ioerr.test memsubsys2.test 750 capi3.test join3.test pagesize.test 751 collate5.test limit.test backup_ioerr.test 752 backup_malloc.test 753 }] -initialize { 754 catch {db close} 755 sqlite3_reset_auto_extension 756 sqlite3_shutdown 757 sqlite3_config_heap 25000000 0 758 sqlite3_config_lookaside 0 0 759 ifcapable mem5 { 760 # If both memsys3 and memsys5 are enabled in the build, the call to 761 # [sqlite3_config_heap] will initialize the system to use memsys5. 762 # The following overrides this preference and installs the memsys3 763 # allocator. 764 sqlite3_install_memsys3 765 } 766 install_malloc_faultsim 1 767 sqlite3_initialize 768 autoinstall_test_functions 769 } -shutdown { 770 catch {db close} 771 sqlite3_shutdown 772 sqlite3_config_heap 0 0 773 sqlite3_config_lookaside 100 500 774 install_malloc_faultsim 1 775 sqlite3_initialize 776 autoinstall_test_functions 777 } 778} 779 780ifcapable mem5 { 781 test_suite "memsys5" -description { 782 Run tests using the allocator in mem5.c. 783 } -files [test_set $::allquicktests -exclude { 784 autovacuum.test delete3.test manydb.test 785 bigrow.test incrblob2.test memdb.test 786 bitvec.test index2.test memsubsys1.test 787 capi3c.test ioerr.test memsubsys2.test 788 capi3.test join3.test pagesize.test 789 collate5.test limit.test zeroblob.test 790 }] -initialize { 791 catch {db close} 792 sqlite3_shutdown 793 sqlite3_config_heap 25000000 64 794 sqlite3_config_lookaside 0 0 795 install_malloc_faultsim 1 796 sqlite3_initialize 797 autoinstall_test_functions 798 } -shutdown { 799 catch {db close} 800 sqlite3_shutdown 801 sqlite3_config_heap 0 0 802 sqlite3_config_lookaside 100 500 803 install_malloc_faultsim 1 804 sqlite3_initialize 805 autoinstall_test_functions 806 } 807 808 test_suite "memsys5-2" -description { 809 Run tests using the allocator in mem5.c in a different configuration. 810 } -files { 811 select1.test 812 } -initialize { 813 catch {db close} 814 sqlite3_shutdown 815 sqlite3_config_memstatus 0 816 sqlite3_config_heap 40000000 16 817 sqlite3_config_lookaside 0 0 818 install_malloc_faultsim 1 819 sqlite3_initialize 820 autoinstall_test_functions 821 } -shutdown { 822 catch {db close} 823 sqlite3_shutdown 824 sqlite3_config_heap 0 0 825 sqlite3_config_lookaside 100 500 826 install_malloc_faultsim 1 827 sqlite3_initialize 828 autoinstall_test_functions 829 } 830} 831 832ifcapable threadsafe { 833 test_suite "no_mutex_try" -description { 834 The sqlite3_mutex_try() interface always fails 835 } -files [ 836 test_set $::allquicktests -exclude mutex1.test mutex2.test 837 ] -initialize { 838 catch {db close} 839 sqlite3_shutdown 840 install_mutex_counters 1 841 set ::disable_mutex_try 1 842 sqlite3_initialize 843 autoinstall_test_functions 844 } -shutdown { 845 catch {db close} 846 sqlite3_shutdown 847 install_mutex_counters 0 848 sqlite3_initialize 849 autoinstall_test_functions 850 } 851} 852 853# run_tests "crash_safe_append" -description { 854# Run crash.test with persistent journals on a SAFE_APPEND file-system. 855# } -initialize { 856# rename crashsql sa_crashsql 857# proc crashsql {args} { 858# set options [lrange $args 0 [expr {[llength $args]-2}]] 859# lappend options -char safe_append 860# set sql [lindex $args end] 861# lappend options " 862# PRAGMA journal_mode=persistent; 863# $sql 864# " 865# set fd [open test.db-journal w] 866# puts $fd [string repeat 1234567890 100000] 867# close $fd 868# eval sa_crashsql $options 869# } 870# } -shutdown { 871# rename crashsql {} 872# rename sa_crashsql crashsql 873# } -files crash.test 874 875test_suite "safe_append" -description { 876 Run some tests on a SAFE_APPEND file-system. 877} -initialize { 878 rename sqlite3 sqlite3_safeappend 879 proc sqlite3 {args} { 880 if {[string range [lindex $args 0] 0 0] ne "-"} { 881 lappend args -vfs devsym 882 } 883 uplevel [concat sqlite3_safeappend $args] 884 } 885 sqlite3_simulate_device -char safe_append 886} -shutdown { 887 rename sqlite3 {} 888 rename sqlite3_shutdown sqlite3 889} -files [ 890 test_set $::allquicktests shared_err.test -exclude async3.test 891] 892 893# The set of tests to run on the alternative-pcache 894set perm-alt-pcache-testset { 895 async.test 896 attach.test 897 delete.test delete2.test 898 index.test 899 insert.test insert2.test 900 join.test join2.test 901 rollback.test 902 select1.test select2.test 903 trans.test 904 update.test 905} 906 907foreach discard_rate {0 10 50 90 100} { 908 test_suite "pcache${discard_rate}" -description " 909 Alternative pcache implementation with ${discard_rate}% random discard 910 " -initialize " 911 catch {db close} 912 sqlite3_shutdown 913 sqlite3_config_alt_pcache 1 $discard_rate 1 914 sqlite3_initialize 915 autoinstall_test_functions 916 " -shutdown { 917 catch {db close} 918 sqlite3_shutdown 919 sqlite3_config_alt_pcache 0 0 0 920 sqlite3_config_lookaside 100 500 921 install_malloc_faultsim 1 922 sqlite3_initialize 923 autoinstall_test_functions 924 } -files ${perm-alt-pcache-testset} 925} 926 927test_suite "journaltest" -description { 928 Check that pages are synced before being written (test_journal.c). 929} -initialize { 930 catch {db close} 931 register_jt_vfs -default "" 932} -shutdown { 933 unregister_jt_vfs 934} -files [test_set $::allquicktests -exclude { 935 wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test 936 async4.test bigfile.test backcompat.test 937}] 938 939if {[info commands register_demovfs] != ""} { 940 test_suite "demovfs" -description { 941 Check that the demovfs (code in test_demovfs.c) more or less works. 942 } -initialize { 943 register_demovfs 944 } -shutdown { 945 unregister_demovfs 946 } -files { 947 insert.test insert2.test insert3.test rollback.test 948 select1.test select2.test select3.test 949 } 950} 951 952test_suite "wal" -description { 953 Run tests with journal_mode=WAL 954} -initialize { 955 set ::G(savepoint6_iterations) 100 956} -shutdown { 957 unset -nocomplain ::G(savepoint6_iterations) 958} -files { 959 savepoint.test savepoint2.test savepoint6.test 960 trans.test avtrans.test 961 962 fts3aa.test fts3ab.test fts3ac.test fts3ad.test 963 fts3ae.test fts3af.test fts3ag.test fts3ah.test 964 fts3ai.test fts3aj.test fts3ak.test fts3al.test 965 fts3am.test fts3an.test fts3ao.test fts3b.test 966 fts3c.test fts3d.test fts3e.test fts3query.test 967} 968 969test_suite "rtree" -description { 970 All R-tree related tests. Provides coverage of source file rtree.c. 971} -files [glob -nocomplain $::testdir/../ext/rtree/*.test] 972 973test_suite "rbu" -description { 974 RBU tests. 975} -files [ 976 test_set [glob -nocomplain $::testdir/../ext/rbu/*.test] -exclude rbu.test 977] 978 979test_suite "no_optimization" -description { 980 Run test scripts with optimizations disabled using the 981 sqlite3_test_control(SQLITE_TESTCTRL_OPTIMIZATIONS) interface. 982} -files { 983 where.test where2.test where3.test where4.test where5.test 984 where6.test where7.test where8.test where9.test 985 whereA.test whereB.test wherelimit.test 986 select1.test select2.test select3.test select4.test select5.test 987 select7.test select8.test selectA.test selectC.test 988} -dbconfig { 989 optimization_control $::dbhandle all 0 990} 991 992test_suite "prepare" -description { 993 Run tests with the db connection using sqlite3_prepare() instead of _v2(). 994} -dbconfig { 995 db_use_legacy_prepare $::dbhandle 1 996 #$::dbhandle cache size 0 997} -files [ 998 test_set $allquicktests -exclude *malloc* *ioerr* *fault* 999] 1000 1001# End of tests 1002############################################################################# 1003 1004# run_tests NAME OPTIONS 1005# 1006# where available options are: 1007# 1008# -description TITLE 1009# -initialize SCRIPT 1010# -shutdown SCRIPT 1011# -presql SQL 1012# -files LIST-OF-FILES 1013# -prefix NAME 1014# 1015proc run_tests {name args} { 1016 array set options $args 1017 1018 set ::G(perm:name) $name 1019 set ::G(perm:prefix) $options(-prefix) 1020 set ::G(perm:presql) $options(-presql) 1021 set ::G(isquick) 1 1022 set ::G(perm:dbconfig) $options(-dbconfig) 1023 1024 uplevel $options(-initialize) 1025 1026 foreach file [lsort $options(-files)] { 1027 if {[file tail $file] == $file} { set file [file join $::testdir $file] } 1028 slave_test_file $file 1029 } 1030 1031 uplevel $options(-shutdown) 1032 1033 unset ::G(perm:name) 1034 unset ::G(perm:prefix) 1035 unset ::G(perm:presql) 1036 unset ::G(perm:dbconfig) 1037} 1038 1039proc run_test_suite {name} { 1040 if {[info exists ::testspec($name)]==0} { 1041 error "No such test suite: $name" 1042 } 1043 uplevel run_tests $name $::testspec($name) 1044} 1045 1046proc help {} { 1047 puts "Usage: $::argv0 TESTSUITE ?TESTFILE?" 1048 puts "" 1049 puts "Available test-suites are:" 1050 foreach k $::testsuitelist { 1051 if {[info exists ::testspec($k)]==0} { 1052 puts " ----------------------------------------" 1053 puts "" 1054 } else { 1055 array set o $::testspec($k) 1056 puts "Test suite: \"$k\"" 1057 set d [string trim $o(-description)] 1058 set d [regsub {\n *} $d "\n "] 1059 puts " $d" 1060 puts "" 1061 } 1062 } 1063 exit -1 1064} 1065 1066if {[info script] == $argv0} { 1067 proc main {argv} { 1068 if {[llength $argv]==0} { 1069 help 1070 } else { 1071 set suite [lindex $argv 0] 1072 if {[info exists ::testspec($suite)]==0} help 1073 set extra "" 1074 if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] } 1075 eval run_tests $suite $::testspec($suite) $extra 1076 } 1077 } 1078 main $argv 1079 finish_test 1080} 1081