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