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