Annotation of embedaddon/sqlite3/test/permutations.test, revision 1.1
1.1 ! misho 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:
! 13: set testdir [file dirname $argv0]
! 14: source $testdir/tester.tcl
! 15: db 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: #
! 30: proc 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: #
! 58: proc 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: #
! 87: set alltests [list]
! 88: foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] }
! 89: foreach f [glob -nocomplain $testdir/../ext/rtree/*.test] {
! 90: lappend alltests $f
! 91: }
! 92:
! 93: if {$::tcl_platform(platform)!="unix"} {
! 94: set alltests [test_set $alltests -exclude crash.test crash2.test]
! 95: }
! 96: set 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
! 100: }]
! 101:
! 102: set 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
! 115: }]
! 116: if {[info exists ::env(QUICKTEST_INCLUDE)]} {
! 117: set allquicktests [concat $allquicktests $::env(QUICKTEST_INCLUDE)]
! 118: }
! 119:
! 120: #############################################################################
! 121: # Start of tests
! 122: #
! 123:
! 124: #-------------------------------------------------------------------------
! 125: # Define the generic test suites:
! 126: #
! 127: # veryquick
! 128: # quick
! 129: # full
! 130: #
! 131: lappend ::testsuitelist xxx
! 132:
! 133: test_suite "veryquick" -prefix "" -description {
! 134: "Very" quick test suite. Runs in less than 5 minutes on a workstation.
! 135: This test suite is the same as the "quick" tests, except that some files
! 136: that test malloc and IO errors are omitted.
! 137: } -files [
! 138: test_set $allquicktests -exclude *malloc* *ioerr* *fault*
! 139: ]
! 140:
! 141: test_suite "valgrind" -prefix "" -description {
! 142: Run the "veryquick" test suite with a couple of multi-process tests (that
! 143: fail under valgrind) omitted.
! 144: } -files [
! 145: test_set $allquicktests -exclude *malloc* *ioerr* *fault* wal.test
! 146: ] -initialize {
! 147: set ::G(valgrind) 1
! 148: } -shutdown {
! 149: unset -nocomplain ::G(valgrind)
! 150: }
! 151:
! 152: test_suite "quick" -prefix "" -description {
! 153: Quick test suite. Runs in around 10 minutes on a workstation.
! 154: } -files [
! 155: test_set $allquicktests
! 156: ]
! 157:
! 158: test_suite "full" -prefix "" -description {
! 159: Full test suite. Takes a long time.
! 160: } -files [
! 161: test_set $alltests
! 162: ] -initialize {
! 163: unset -nocomplain ::G(isquick)
! 164: }
! 165:
! 166: test_suite "threads" -prefix "" -description {
! 167: All multi-threaded tests.
! 168: } -files {
! 169: notify2.test thread001.test thread002.test thread003.test
! 170: thread004.test thread005.test walthread.test
! 171: }
! 172:
! 173: test_suite "fts3" -prefix "" -description {
! 174: All FTS3 tests except fts3rnd.test.
! 175: } -files {
! 176: fts3aa.test fts3ab.test fts3ac.test fts3ad.test fts3ae.test
! 177: fts3af.test fts3ag.test fts3ah.test fts3ai.test fts3aj.test
! 178: fts3ak.test fts3al.test fts3am.test fts3an.test fts3ao.test
! 179: fts3atoken.test fts3b.test fts3c.test fts3cov.test fts3d.test
! 180: fts3defer.test fts3defer2.test fts3e.test fts3expr.test fts3expr2.test
! 181: fts3near.test fts3query.test fts3shared.test fts3snippet.test
! 182: fts3sort.test
! 183: fts3fault.test fts3malloc.test fts3matchinfo.test
! 184: fts3aux1.test fts3comp1.test fts3auto.test
! 185: fts4aa.test fts4content.test
! 186: fts3conf.test fts3prefix.test fts3fault2.test fts3corrupt.test
! 187: fts3corrupt2.test
! 188: fts3first.test
! 189: }
! 190:
! 191:
! 192: lappend ::testsuitelist xxx
! 193: #-------------------------------------------------------------------------
! 194: # Define the coverage related test suites:
! 195: #
! 196: # coverage-wal
! 197: #
! 198: test_suite "coverage-wal" -description {
! 199: Coverage tests for file wal.c.
! 200: } -files {
! 201: wal.test wal2.test wal3.test walmode.test
! 202: walbak.test walhook.test walcrash2.test walcksum.test
! 203: walfault.test walbig.test walnoshm.test
! 204: wal5.test
! 205: }
! 206:
! 207: test_suite "coverage-pager" -description {
! 208: Coverage tests for file pager.c.
! 209: } -files {
! 210: pager1.test pager2.test pagerfault.test pagerfault2.test
! 211: walfault.test walbak.test journal2.test tkt-9d68c883.test
! 212: }
! 213:
! 214:
! 215: lappend ::testsuitelist xxx
! 216: #-------------------------------------------------------------------------
! 217: # Define the permutation test suites:
! 218: #
! 219:
! 220: # Run some tests using pre-allocated page and scratch blocks.
! 221: #
! 222: test_suite "memsubsys1" -description {
! 223: Tests using pre-allocated page and scratch blocks
! 224: } -files [
! 225: test_set $::allquicktests -exclude ioerr5.test malloc5.test
! 226: ] -initialize {
! 227: catch {db close}
! 228: sqlite3_shutdown
! 229: sqlite3_config_pagecache 4096 24
! 230: sqlite3_config_scratch 25000 1
! 231: sqlite3_initialize
! 232: autoinstall_test_functions
! 233: } -shutdown {
! 234: catch {db close}
! 235: sqlite3_shutdown
! 236: sqlite3_config_pagecache 0 0
! 237: sqlite3_config_scratch 0 0
! 238: sqlite3_initialize
! 239: autoinstall_test_functions
! 240: }
! 241:
! 242: # Run some tests using pre-allocated page and scratch blocks. This time
! 243: # the allocations are too small to use in most cases.
! 244: #
! 245: # Both ioerr5.test and malloc5.test are excluded because they test the
! 246: # sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality.
! 247: # This functionality is disabled if a pre-allocated page block is provided.
! 248: #
! 249: test_suite "memsubsys2" -description {
! 250: Tests using small pre-allocated page and scratch blocks
! 251: } -files [
! 252: test_set $::allquicktests -exclude ioerr5.test malloc5.test
! 253: ] -initialize {
! 254: catch {db close}
! 255: sqlite3_shutdown
! 256: sqlite3_config_pagecache 512 5
! 257: sqlite3_config_scratch 1000 1
! 258: sqlite3_initialize
! 259: autoinstall_test_functions
! 260: } -shutdown {
! 261: catch {db close}
! 262: sqlite3_shutdown
! 263: sqlite3_config_pagecache 0 0
! 264: sqlite3_config_scratch 0 0
! 265: sqlite3_initialize
! 266: autoinstall_test_functions
! 267: }
! 268:
! 269: # Run all tests with the lookaside allocator disabled.
! 270: #
! 271: test_suite "nolookaside" -description {
! 272: OOM tests with lookaside disabled
! 273: } -initialize {
! 274: catch {db close}
! 275: sqlite3_shutdown
! 276: sqlite3_config_lookaside 0 0
! 277: sqlite3_initialize
! 278: autoinstall_test_functions
! 279: } -shutdown {
! 280: catch {db close}
! 281: sqlite3_shutdown
! 282: sqlite3_config_lookaside 100 500
! 283: sqlite3_initialize
! 284: autoinstall_test_functions
! 285: } -files $::allquicktests
! 286:
! 287: # Run some tests in SQLITE_CONFIG_SINGLETHREAD mode.
! 288: #
! 289: test_suite "singlethread" -description {
! 290: Tests run in SQLITE_CONFIG_SINGLETHREAD mode
! 291: } -initialize {
! 292: catch {db close}
! 293: sqlite3_shutdown
! 294: catch {sqlite3_config singlethread}
! 295: sqlite3_initialize
! 296: autoinstall_test_functions
! 297: } -files {
! 298: delete.test delete2.test insert.test rollback.test select1.test
! 299: select2.test trans.test update.test vacuum.test types.test
! 300: types2.test types3.test
! 301: } -shutdown {
! 302: catch {db close}
! 303: sqlite3_shutdown
! 304: catch {sqlite3_config serialized}
! 305: sqlite3_initialize
! 306: autoinstall_test_functions
! 307: }
! 308:
! 309: test_suite "nomutex" -description {
! 310: Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open().
! 311: } -initialize {
! 312: rename sqlite3 sqlite3_nomutex
! 313: proc sqlite3 {args} {
! 314: if {[string range [lindex $args 0] 0 0] ne "-"} {
! 315: lappend args -fullmutex 0 -nomutex 1
! 316: }
! 317: uplevel [concat sqlite3_nomutex $args]
! 318: }
! 319: } -files {
! 320: delete.test delete2.test insert.test rollback.test select1.test
! 321: select2.test trans.test update.test vacuum.test types.test
! 322: types2.test types3.test
! 323: } -shutdown {
! 324: rename sqlite3 {}
! 325: rename sqlite3_nomutex sqlite3
! 326: }
! 327:
! 328: # Run some tests in SQLITE_CONFIG_MULTITHREAD mode.
! 329: #
! 330: test_suite "multithread" -description {
! 331: Tests run in SQLITE_CONFIG_MULTITHREAD mode
! 332: } -initialize {
! 333: catch {db close}
! 334: sqlite3_shutdown
! 335: catch {sqlite3_config multithread}
! 336: sqlite3_initialize
! 337: autoinstall_test_functions
! 338: } -files {
! 339: delete.test delete2.test insert.test rollback.test select1.test
! 340: select2.test trans.test update.test vacuum.test types.test
! 341: types2.test types3.test
! 342: } -shutdown {
! 343: catch {db close}
! 344: sqlite3_shutdown
! 345: catch {sqlite3_config serialized}
! 346: sqlite3_initialize
! 347: autoinstall_test_functions
! 348: }
! 349:
! 350: # Run some tests in SQLITE_OPEN_FULLMUTEX mode.
! 351: #
! 352: test_suite "fullmutex" -description {
! 353: Tests run in SQLITE_OPEN_FULLMUTEX mode
! 354: } -initialize {
! 355: rename sqlite3 sqlite3_fullmutex
! 356: proc sqlite3 {args} {
! 357: if {[string range [lindex $args 0] 0 0] ne "-"} {
! 358: lappend args -nomutex 0 -fullmutex 1
! 359: }
! 360: uplevel [concat sqlite3_fullmutex $args]
! 361: }
! 362: } -files {
! 363: delete.test delete2.test insert.test rollback.test select1.test
! 364: select2.test trans.test update.test vacuum.test types.test
! 365: types2.test types3.test
! 366: } -shutdown {
! 367: rename sqlite3 {}
! 368: rename sqlite3_fullmutex sqlite3
! 369: }
! 370:
! 371: # Run some tests using the "onefile" demo.
! 372: #
! 373: test_suite "onefile" -description {
! 374: Run some tests using the "test_onefile.c" demo
! 375: } -initialize {
! 376: rename sqlite3 sqlite3_onefile
! 377: proc sqlite3 {args} {
! 378: if {[string range [lindex $args 0] 0 0] ne "-"} {
! 379: lappend args -vfs fs
! 380: }
! 381: uplevel [concat sqlite3_onefile $args]
! 382: }
! 383: } -files {
! 384: conflict.test insert.test insert2.test insert3.test
! 385: rollback.test select1.test select2.test select3.test
! 386: } -shutdown {
! 387: rename sqlite3 {}
! 388: rename sqlite3_onefile sqlite3
! 389: }
! 390:
! 391: # Run some tests using UTF-16 databases.
! 392: #
! 393: test_suite "utf16" -description {
! 394: Run tests using UTF-16 databases
! 395: } -presql {
! 396: pragma encoding = 'UTF-16'
! 397: } -files {
! 398: alter.test alter3.test
! 399: auth.test bind.test blob.test capi2.test capi3.test collate1.test
! 400: collate2.test collate3.test collate4.test collate5.test collate6.test
! 401: conflict.test date.test delete.test expr.test fkey1.test func.test
! 402: hook.test index.test insert2.test insert.test interrupt.test in.test
! 403: intpkey.test ioerr.test join2.test join.test lastinsert.test
! 404: laststmtchanges.test limit.test lock2.test lock.test main.test
! 405: memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test
! 406: null.test progress.test quote.test rowid.test select1.test select2.test
! 407: select3.test select4.test select5.test select6.test sort.test
! 408: subselect.test tableapi.test table.test temptable.test
! 409: trace.test trigger1.test trigger2.test trigger3.test
! 410: trigger4.test types2.test types.test unique.test update.test
! 411: vacuum.test view.test where.test
! 412: }
! 413:
! 414: # Run some tests in exclusive locking mode.
! 415: #
! 416: test_suite "exclusive" -description {
! 417: Run tests in exclusive locking mode.
! 418: } -presql {
! 419: pragma locking_mode = 'exclusive'
! 420: } -files {
! 421: rollback.test select1.test select2.test
! 422: malloc.test ioerr.test
! 423: }
! 424:
! 425: # Run some tests in exclusive locking mode with truncated journals.
! 426: #
! 427: test_suite "exclusive-truncate" -description {
! 428: Run tests in exclusive locking mode and truncate journal mode.
! 429: } -presql {
! 430: pragma locking_mode = 'exclusive';
! 431: pragma journal_mode = TRUNCATE;
! 432: } -files {
! 433: delete.test delete2.test insert.test rollback.test select1.test
! 434: select2.test update.test malloc.test ioerr.test
! 435: }
! 436:
! 437: # Run some tests in persistent journal mode.
! 438: #
! 439: test_suite "persistent_journal" -description {
! 440: Run tests in persistent-journal mode.
! 441: } -presql {
! 442: pragma journal_mode = persist
! 443: } -files {
! 444: delete.test delete2.test insert.test rollback.test select1.test
! 445: select2.test trans.test update.test vacuum.test
! 446: }
! 447:
! 448: # Run some tests in truncating journal mode.
! 449: #
! 450: test_suite "truncate_journal" -description {
! 451: Run tests in persistent-journal mode.
! 452: } -presql {
! 453: pragma journal_mode = truncate
! 454: } -files {
! 455: delete.test delete2.test insert.test rollback.test select1.test
! 456: select2.test trans.test update.test vacuum.test
! 457: malloc.test ioerr.test
! 458: }
! 459:
! 460: # Run some error tests in persistent journal mode.
! 461: #
! 462: test_suite "persistent_journal_error" -description {
! 463: Run malloc.test and ioerr.test in persistent-journal mode.
! 464: } -presql {
! 465: pragma journal_mode = persist
! 466: } -files {
! 467: malloc.test ioerr.test
! 468: }
! 469:
! 470: # Run some tests in no journal mode.
! 471: #
! 472: test_suite "no_journal" -description {
! 473: Run tests in no-journal mode.
! 474: } -presql {
! 475: pragma journal_mode = persist
! 476: } -files {
! 477: delete.test delete2.test insert.test rollback.test select1.test
! 478: select2.test trans.test update.test vacuum.test
! 479: }
! 480:
! 481: # Run some error tests in no journal mode.
! 482: #
! 483: test_suite "no_journal_error" -description {
! 484: Run malloc.test and ioerr.test in no-journal mode.
! 485: } -presql {
! 486: pragma journal_mode = persist
! 487: } -files {
! 488: malloc.test ioerr.test
! 489: }
! 490:
! 491: # Run some crash-tests in autovacuum mode.
! 492: #
! 493: test_suite "autovacuum_crash" -description {
! 494: Run crash.test in autovacuum mode.
! 495: } -presql {
! 496: pragma auto_vacuum = 1
! 497: } -files crash.test
! 498:
! 499: # Run some ioerr-tests in autovacuum mode.
! 500: #
! 501: test_suite "autovacuum_ioerr" -description {
! 502: Run ioerr.test in autovacuum mode.
! 503: } -presql {
! 504: pragma auto_vacuum = 1
! 505: } -files ioerr.test
! 506:
! 507: # Run tests with an in-memory journal.
! 508: #
! 509: test_suite "inmemory_journal" -description {
! 510: Run tests with an in-memory journal file.
! 511: } -presql {
! 512: pragma journal_mode = 'memory'
! 513: } -files [test_set $::allquicktests -exclude {
! 514: # Exclude all tests that simulate IO errors.
! 515: autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test
! 516: ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test
! 517: vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test
! 518: e_fts3.test fts3cov.test fts3malloc.test fts3rnd.test
! 519: fts3snippet.test
! 520:
! 521: # Exclude test scripts that use tcl IO to access journal files or count
! 522: # the number of fsync() calls.
! 523: pager.test exclusive.test jrnlmode.test sync.test misc1.test
! 524: journal1.test conflict.test crash8.test tkt3457.test io.test
! 525: journal3.test 8_3_names.test
! 526:
! 527: pager1.test async4.test corrupt.test filefmt.test pager2.test
! 528: corrupt5.test corruptA.test pageropt.test
! 529:
! 530: # Exclude stmt.test, which expects sub-journals to use temporary files.
! 531: stmt.test
! 532:
! 533: zerodamage.test
! 534:
! 535: # WAL mode is different.
! 536: wal* tkt-2d1a5c67d.test backcompat.test
! 537: }]
! 538:
! 539: ifcapable mem3 {
! 540: test_suite "memsys3" -description {
! 541: Run tests using the allocator in mem3.c.
! 542: } -files [test_set $::allquicktests -exclude {
! 543: autovacuum.test delete3.test manydb.test
! 544: bigrow.test incrblob2.test memdb.test
! 545: bitvec.test index2.test memsubsys1.test
! 546: capi3c.test ioerr.test memsubsys2.test
! 547: capi3.test join3.test pagesize.test
! 548: collate5.test limit.test backup_ioerr.test
! 549: backup_malloc.test
! 550: }] -initialize {
! 551: catch {db close}
! 552: sqlite3_reset_auto_extension
! 553: sqlite3_shutdown
! 554: sqlite3_config_heap 25000000 0
! 555: sqlite3_config_lookaside 0 0
! 556: ifcapable mem5 {
! 557: # If both memsys3 and memsys5 are enabled in the build, the call to
! 558: # [sqlite3_config_heap] will initialize the system to use memsys5.
! 559: # The following overrides this preference and installs the memsys3
! 560: # allocator.
! 561: sqlite3_install_memsys3
! 562: }
! 563: install_malloc_faultsim 1
! 564: sqlite3_initialize
! 565: autoinstall_test_functions
! 566: } -shutdown {
! 567: catch {db close}
! 568: sqlite3_shutdown
! 569: sqlite3_config_heap 0 0
! 570: sqlite3_config_lookaside 100 500
! 571: install_malloc_faultsim 1
! 572: sqlite3_initialize
! 573: autoinstall_test_functions
! 574: }
! 575: }
! 576:
! 577: ifcapable mem5 {
! 578: test_suite "memsys5" -description {
! 579: Run tests using the allocator in mem5.c.
! 580: } -files [test_set $::allquicktests -exclude {
! 581: autovacuum.test delete3.test manydb.test
! 582: bigrow.test incrblob2.test memdb.test
! 583: bitvec.test index2.test memsubsys1.test
! 584: capi3c.test ioerr.test memsubsys2.test
! 585: capi3.test join3.test pagesize.test
! 586: collate5.test limit.test zeroblob.test
! 587: }] -initialize {
! 588: catch {db close}
! 589: sqlite3_shutdown
! 590: sqlite3_config_heap 25000000 64
! 591: sqlite3_config_lookaside 0 0
! 592: install_malloc_faultsim 1
! 593: sqlite3_initialize
! 594: autoinstall_test_functions
! 595: } -shutdown {
! 596: catch {db close}
! 597: sqlite3_shutdown
! 598: sqlite3_config_heap 0 0
! 599: sqlite3_config_lookaside 100 500
! 600: install_malloc_faultsim 1
! 601: sqlite3_initialize
! 602: autoinstall_test_functions
! 603: }
! 604:
! 605: test_suite "memsys5-2" -description {
! 606: Run tests using the allocator in mem5.c in a different configuration.
! 607: } -files {
! 608: select1.test
! 609: } -initialize {
! 610: catch {db close}
! 611: sqlite3_shutdown
! 612: sqlite3_config_memstatus 0
! 613: sqlite3_config_heap 40000000 16
! 614: sqlite3_config_lookaside 0 0
! 615: install_malloc_faultsim 1
! 616: sqlite3_initialize
! 617: autoinstall_test_functions
! 618: } -shutdown {
! 619: catch {db close}
! 620: sqlite3_shutdown
! 621: sqlite3_config_heap 0 0
! 622: sqlite3_config_lookaside 100 500
! 623: install_malloc_faultsim 1
! 624: sqlite3_initialize
! 625: autoinstall_test_functions
! 626: }
! 627: }
! 628:
! 629: ifcapable threadsafe {
! 630: test_suite "no_mutex_try" -description {
! 631: The sqlite3_mutex_try() interface always fails
! 632: } -files [
! 633: test_set $::allquicktests -exclude mutex1.test mutex2.test
! 634: ] -initialize {
! 635: catch {db close}
! 636: sqlite3_shutdown
! 637: install_mutex_counters 1
! 638: set ::disable_mutex_try 1
! 639: sqlite3_initialize
! 640: autoinstall_test_functions
! 641: } -shutdown {
! 642: catch {db close}
! 643: sqlite3_shutdown
! 644: install_mutex_counters 0
! 645: sqlite3_initialize
! 646: autoinstall_test_functions
! 647: }
! 648: }
! 649:
! 650: # run_tests "crash_safe_append" -description {
! 651: # Run crash.test with persistent journals on a SAFE_APPEND file-system.
! 652: # } -initialize {
! 653: # rename crashsql sa_crashsql
! 654: # proc crashsql {args} {
! 655: # set options [lrange $args 0 [expr {[llength $args]-2}]]
! 656: # lappend options -char safe_append
! 657: # set sql [lindex $args end]
! 658: # lappend options "
! 659: # PRAGMA journal_mode=persistent;
! 660: # $sql
! 661: # "
! 662: # set fd [open test.db-journal w]
! 663: # puts $fd [string repeat 1234567890 100000]
! 664: # close $fd
! 665: # eval sa_crashsql $options
! 666: # }
! 667: # } -shutdown {
! 668: # rename crashsql {}
! 669: # rename sa_crashsql crashsql
! 670: # } -files crash.test
! 671:
! 672: test_suite "safe_append" -description {
! 673: Run some tests on a SAFE_APPEND file-system.
! 674: } -initialize {
! 675: rename sqlite3 sqlite3_safeappend
! 676: proc sqlite3 {args} {
! 677: if {[string range [lindex $args 0] 0 0] ne "-"} {
! 678: lappend args -vfs devsym
! 679: }
! 680: uplevel [concat sqlite3_safeappend $args]
! 681: }
! 682: sqlite3_simulate_device -char safe_append
! 683: } -shutdown {
! 684: rename sqlite3 {}
! 685: rename sqlite3_shutdown sqlite3
! 686: } -files [
! 687: test_set $::allquicktests shared_err.test -exclude async3.test
! 688: ]
! 689:
! 690: # The set of tests to run on the alternative-pcache
! 691: set perm-alt-pcache-testset {
! 692: async.test
! 693: attach.test
! 694: delete.test delete2.test
! 695: index.test
! 696: insert.test insert2.test
! 697: join.test join2.test
! 698: rollback.test
! 699: select1.test select2.test
! 700: trans.test
! 701: update.test
! 702: }
! 703:
! 704: foreach discard_rate {0 10 50 90 100} {
! 705: test_suite "pcache${discard_rate}" -description "
! 706: Alternative pcache implementation with ${discard_rate}% random discard
! 707: " -initialize "
! 708: catch {db close}
! 709: sqlite3_shutdown
! 710: sqlite3_config_alt_pcache 1 $discard_rate 1
! 711: sqlite3_initialize
! 712: autoinstall_test_functions
! 713: " -shutdown {
! 714: catch {db close}
! 715: sqlite3_shutdown
! 716: sqlite3_config_alt_pcache 0 0 0
! 717: sqlite3_config_lookaside 100 500
! 718: install_malloc_faultsim 1
! 719: sqlite3_initialize
! 720: autoinstall_test_functions
! 721: } -files ${perm-alt-pcache-testset}
! 722: }
! 723:
! 724: test_suite "journaltest" -description {
! 725: Check that pages are synced before being written (test_journal.c).
! 726: } -initialize {
! 727: catch {db close}
! 728: register_jt_vfs -default ""
! 729: } -shutdown {
! 730: unregister_jt_vfs
! 731: } -files [test_set $::allquicktests -exclude {
! 732: wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test
! 733: async4.test bigfile.test backcompat.test
! 734: }]
! 735:
! 736: if {[info commands register_demovfs] != ""} {
! 737: test_suite "demovfs" -description {
! 738: Check that the demovfs (code in test_demovfs.c) more or less works.
! 739: } -initialize {
! 740: register_demovfs
! 741: } -shutdown {
! 742: unregister_demovfs
! 743: } -files {
! 744: insert.test insert2.test insert3.test rollback.test
! 745: select1.test select2.test select3.test
! 746: }
! 747: }
! 748:
! 749: test_suite "wal" -description {
! 750: Run tests with journal_mode=WAL
! 751: } -initialize {
! 752: set ::G(savepoint6_iterations) 100
! 753: } -shutdown {
! 754: unset -nocomplain ::G(savepoint6_iterations)
! 755: } -files {
! 756: savepoint.test savepoint2.test savepoint6.test
! 757: trans.test avtrans.test
! 758:
! 759: fts3aa.test fts3ab.test fts3ac.test fts3ad.test
! 760: fts3ae.test fts3af.test fts3ag.test fts3ah.test
! 761: fts3ai.test fts3aj.test fts3ak.test fts3al.test
! 762: fts3am.test fts3an.test fts3ao.test fts3b.test
! 763: fts3c.test fts3d.test fts3e.test fts3query.test
! 764: }
! 765:
! 766: test_suite "rtree" -description {
! 767: All R-tree related tests. Provides coverage of source file rtree.c.
! 768: } -files [glob -nocomplain $::testdir/../ext/rtree/*.test]
! 769:
! 770: test_suite "no_optimization" -description {
! 771: Run test scripts with optimizations disabled using the
! 772: sqlite3_test_control(SQLITE_TESTCTRL_OPTIMIZATIONS) interface.
! 773: } -files {
! 774: where.test where2.test where3.test where4.test where5.test
! 775: where6.test where7.test where8.test where9.test
! 776: whereA.test whereB.test wherelimit.test
! 777: select1.test select2.test select3.test select4.test select5.test
! 778: select7.test select8.test selectA.test selectC.test
! 779: } -dbconfig {
! 780: optimization_control $::dbhandle all 0
! 781: }
! 782:
! 783: test_suite "prepare" -description {
! 784: Run tests with the db connection using sqlite3_prepare() instead of _v2().
! 785: } -dbconfig {
! 786: db_use_legacy_prepare $::dbhandle 1
! 787: #$::dbhandle cache size 0
! 788: } -files [
! 789: test_set $allquicktests -exclude *malloc* *ioerr* *fault*
! 790: ]
! 791:
! 792: # End of tests
! 793: #############################################################################
! 794:
! 795: # run_tests NAME OPTIONS
! 796: #
! 797: # where available options are:
! 798: #
! 799: # -description TITLE
! 800: # -initialize SCRIPT
! 801: # -shutdown SCRIPT
! 802: # -presql SQL
! 803: # -files LIST-OF-FILES
! 804: # -prefix NAME
! 805: #
! 806: proc run_tests {name args} {
! 807: array set options $args
! 808:
! 809: set ::G(perm:name) $name
! 810: set ::G(perm:prefix) $options(-prefix)
! 811: set ::G(perm:presql) $options(-presql)
! 812: set ::G(isquick) 1
! 813: set ::G(perm:dbconfig) $options(-dbconfig)
! 814:
! 815: uplevel $options(-initialize)
! 816:
! 817: foreach file [lsort $options(-files)] {
! 818: if {[file tail $file] == $file} { set file [file join $::testdir $file] }
! 819: slave_test_file $file
! 820: }
! 821:
! 822: uplevel $options(-shutdown)
! 823:
! 824: unset ::G(perm:name)
! 825: unset ::G(perm:prefix)
! 826: unset ::G(perm:presql)
! 827: unset ::G(perm:dbconfig)
! 828: }
! 829:
! 830: proc run_test_suite {name} {
! 831: if {[info exists ::testspec($name)]==0} {
! 832: error "No such test suite: $name"
! 833: }
! 834: uplevel run_tests $name $::testspec($name)
! 835: }
! 836:
! 837: proc help {} {
! 838: puts "Usage: $::argv0 TESTSUITE ?TESTFILE?"
! 839: puts ""
! 840: puts "Available test-suites are:"
! 841: foreach k $::testsuitelist {
! 842: if {[info exists ::testspec($k)]==0} {
! 843: puts " ----------------------------------------"
! 844: puts ""
! 845: } else {
! 846: array set o $::testspec($k)
! 847: puts "Test suite: \"$k\""
! 848: set d [string trim $o(-description)]
! 849: set d [regsub {\n *} $d "\n "]
! 850: puts " $d"
! 851: puts ""
! 852: }
! 853: }
! 854: exit -1
! 855: }
! 856:
! 857: if {[info script] == $argv0} {
! 858: proc main {argv} {
! 859: if {[llength $argv]==0} {
! 860: help
! 861: } else {
! 862: set suite [lindex $argv 0]
! 863: if {[info exists ::testspec($suite)]==0} help
! 864: set extra ""
! 865: if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] }
! 866: eval run_tests $suite $::testspec($suite) $extra
! 867: }
! 868: }
! 869: main $argv
! 870: finish_test
! 871: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to permutations.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test