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