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