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