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