Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Merge in [2c5e48a485]. Merge in [2c5e48a485]. Merge in [2c5e48a485]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
03c0f4fd9cbb655477b63ebbb6af7822 |
User & Date: | dan 2010-06-15 14:06:07.000 |
Context
2010-06-15
| ||
14:21 | Run extra iterations in wal3.test to ensure test coverage. (check-in: ea80cbe51e user: dan tags: trunk) | |
14:06 | Merge in [2c5e48a485]. Merge in [2c5e48a485]. Merge in [2c5e48a485]. (check-in: 03c0f4fd9c user: dan tags: trunk) | |
13:56 | Changes to the way tcl test scripts work. No changes to production code. (Closed-Leaf check-in: 2c5e48a485 user: dan tags: experimental) | |
12:09 | Minor tweaks to the interface documentation - adding hyperlinks. (check-in: 07b2fdd1ce user: drh tags: trunk) | |
Changes
Changes to Makefile.vxworks.
︙ | ︙ | |||
621 622 623 624 625 626 627 | $(TESTSRC) $(TOP)/src/tclsqlite.c sqlite3.c fts3amal.c \ -o testfixture$(EXE) $(LIBTCL) $(THREADLIB) fulltest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test soaktest: testfixture$(EXE) sqlite3$(EXE) | | | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 | $(TESTSRC) $(TOP)/src/tclsqlite.c sqlite3.c fts3amal.c \ -o testfixture$(EXE) $(LIBTCL) $(THREADLIB) fulltest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test soaktest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test -soak=1 test: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/veryquick.test sqlite3_analyzer$(EXE): $(TOP)/src/tclsqlite.c sqlite3.c $(TESTSRC) \ $(TOP)/tool/spaceanal.tcl sed \ |
︙ | ︙ |
Changes to main.mk.
︙ | ︙ | |||
490 491 492 493 494 495 496 | $(TESTSRC) $(TOP)/src/tclsqlite.c sqlite3.c fts3amal.c \ -o testfixture$(EXE) $(LIBTCL) $(THREADLIB) fulltest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test soaktest: testfixture$(EXE) sqlite3$(EXE) | | | 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 | $(TESTSRC) $(TOP)/src/tclsqlite.c sqlite3.c fts3amal.c \ -o testfixture$(EXE) $(LIBTCL) $(THREADLIB) fulltest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test soaktest: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/all.test -soak=1 test: testfixture$(EXE) sqlite3$(EXE) ./testfixture$(EXE) $(TOP)/test/veryquick.test sqlite3_analyzer$(EXE): $(TOP)/src/tclsqlite.c sqlite3.c $(TESTSRC) \ $(TOP)/tool/spaceanal.tcl sed \ |
︙ | ︙ |
Changes to test/all.test.
1 2 3 4 5 6 7 8 9 10 11 12 | # 2001 September 15 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all tests. # | < | < | < < < | | < > | | > | | < > > | > > > | < < < < | < > | < < < < < | < | | < < < < < < < < > < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | < < | < < | < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | # 2001 September 15 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all tests. # set testdir [file dirname $argv0] source $testdir/permutations.test run_test_suite full run_test_suite memsubsys1 run_test_suite memsubsys2 run_test_suite singlethread run_test_suite multithread run_test_suite onefile run_test_suite utf16 run_test_suite exclusive run_test_suite persistent_journal run_test_suite persistent_journal_error run_test_suite no_journal run_test_suite no_journal_error run_test_suite autovacuum_ioerr run_test_suite no_mutex_try run_test_suite fullmutex run_test_suite journaltest run_test_suite inmemory_journal run_test_suite pcache0 run_test_suite pcache10 run_test_suite pcache50 run_test_suite pcache90 run_test_suite pcache100 if {$::tcl_platform(platform)=="unix"} { ifcapable !default_autovacuum { run_test_suite autovacuum_crash } } finish_test |
Changes to test/permutations.test.
︙ | ︙ | |||
11 12 13 14 15 16 17 | # # $Id: permutations.test,v 1.51 2009/07/01 18:09:02 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl db close | < < < < < < < < < | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | < < | > | | | < < | | > > > | | | | > | | < | | < < < | < < < | | > | | | | | < | | | < < < | < | < | < < > > | > | | > > > | < | | > | > > > > | < | > > | < | | > > > > > > > > > > > > > | | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | < | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 | # # $Id: permutations.test,v 1.51 2009/07/01 18:09:02 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl db close #------------------------------------------------------------------------- # test_suite NAME OPTIONS # # where available options are: # # -description TITLE (default "") # -initialize SCRIPT (default "") # -shutdown SCRIPT (default "") # -presql SQL (default "") # -files LIST-OF-FILES (default $::ALLTESTS) # # proc test_suite {name args} { set default(-shutdown) "" set default(-initialize) "" set default(-presql) "" set default(-description) "no description supplied (fixme)" set default(-files) "" array set options [array get default] if {[llength $args]%2} { error "uneven number of options/switches passed to test_suite" } foreach {k v} $args { set o [array names options ${k}*] if {[llength $o]>1} { error "ambiguous option: $k" } if {[llength $o]==0} { error "unknown option: $k" } set options([lindex $o 0]) $v } set ::testspec($name) [array get options] lappend ::testsuitelist $name } #------------------------------------------------------------------------- # test_set ARGS... # proc test_set {args} { set isExclude 0 foreach a $args { if {[string match -* $a]} { switch -- $a { -include { set isExclude 0 } -exclude { set isExclude 1 } default { error "Unknown switch: $a" } } } elseif {$isExclude == 0} { foreach f $a { set t($f) 1 } } else { foreach f $a { array unset t $f } } } return [array names t] } #------------------------------------------------------------------------- # Set up the following global list variables containing the names of # various test scripts: # # $alltests # $slowtests # set alltests [list] foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] } if {$::tcl_platform(platform)!="unix"} { set alltests [test_set $alltests -exclude crash.test crash2.test] } set alltests [test_set $alltests -exclude { all.test async.test quick.test veryquick.test memleak.test permutations.test soak.test fts3.test mallocAll.test }] set allquicktests [test_set $alltests -exclude { async2.test async3.test backup_ioerr.test corrupt.test corruptC.test crash.test crash2.test crash3.test crash4.test crash5.test crash6.test crash7.test delete3.test e_fts3.test fts3rnd.test fkey_malloc.test fuzz.test fuzz3.test fuzz_malloc.test in2.test loadext.test misc7.test mutex2.test notify2.test onefile.test savepoint4.test savepoint6.test select9.test speed1.test speed1p.test speed2.test speed3.test speed4.test speed4p.test sqllimits1.test tkt2686.test thread001.test thread002.test thread003.test thread004.test thread005.test trans2.test vacuum3.test incrvacuum_ioerr.test autovacuum_crash.test btree8.test shared_err.test vtab_err.test walslow.test walcrash.test walthread.test }] ############################################################################# # Start of tests # #------------------------------------------------------------------------- # Define the generic test suites: # # veryquick # quick # full # veryquick_plus_notify2 # test_suite "veryquick" -description { "Very" quick test suite. Runs in less than 5 minutes on a workstation. This test suite is the same as the "quick" tests, except that some files that test malloc and IO errors are omitted. } -files [ test_set $allquicktests -exclude *malloc* *ioerr* *fault* ] test_suite "quick" -description { Quick test suite. Runs in around 10 minutes on a workstation. } -files [ test_set $allquicktests ] test_suite "veryquick_plus_notify2" -description { Very quick test suite + file notify2.test. This is used by one of the sqlite.org release test configurations. } -files [ test_set $allquicktests notify2.test -exclude *malloc* *ioerr* *fault* ] test_suite "full" -description { Full test suite. Takes a long time. } -files [ test_set $alltests ] -initialize { unset -nocomplain ::G(isquick) } #------------------------------------------------------------------------- # Define the coverage related test suites: # # coverage-wal # coverage-fkey # test_suite "coverage-wal" -description { Coverage tests for file wal.c. } -files { wal.test wal2.test wal3.test walmode.test walbak.test walhook.test walcrash2.test walcksum.test walfault.test } #------------------------------------------------------------------------- # Define the permutation test suites: # # Run some tests using pre-allocated page and scratch blocks. # test_suite "memsubsys1" -description { Tests using pre-allocated page and scratch blocks } -files [ test_set $::allquicktests -exclude ioerr5.test malloc5.test ] -initialize { catch {db close} sqlite3_shutdown sqlite3_config_pagecache 4096 24 sqlite3_config_scratch 25000 1 sqlite3_initialize autoinstall_test_functions } -shutdown { |
︙ | ︙ | |||
194 195 196 197 198 199 200 | # Run some tests using pre-allocated page and scratch blocks. This time # the allocations are too small to use in most cases. # # Both ioerr5.test and malloc5.test are excluded because they test the # sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality. # This functionality is disabled if a pre-allocated page block is provided. # | | | < | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 | # Run some tests using pre-allocated page and scratch blocks. This time # the allocations are too small to use in most cases. # # Both ioerr5.test and malloc5.test are excluded because they test the # sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality. # This functionality is disabled if a pre-allocated page block is provided. # test_suite "memsubsys2" -description { Tests using small pre-allocated page and scratch blocks } -files [ test_set $::allquicktests -exclude ioerr5.test malloc5.test ] -initialize { catch {db close} sqlite3_shutdown sqlite3_config_pagecache 512 5 sqlite3_config_scratch 1000 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_pagecache 0 0 sqlite3_config_scratch 0 0 sqlite3_initialize autoinstall_test_functions } # Run all tests with the lookaside allocator disabled. # test_suite "nolookaside" -description { OOM tests with lookaside disabled } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_lookaside 0 0 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_lookaside 100 500 sqlite3_initialize autoinstall_test_functions } -files $::allquicktests # Run some tests in SQLITE_CONFIG_SINGLETHREAD mode. # test_suite "singlethread" -description { Tests run in SQLITE_CONFIG_SINGLETHREAD mode } -initialize { catch {db close} sqlite3_shutdown catch {sqlite3_config singlethread} sqlite3_initialize autoinstall_test_functions } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test types.test types2.test types3.test } -shutdown { catch {db close} sqlite3_shutdown catch {sqlite3_config serialized} sqlite3_initialize autoinstall_test_functions } test_suite "nomutex" -description { Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open(). } -initialize { rename sqlite3 sqlite3_nomutex proc sqlite3 {args} { if {[string range [lindex $args 0] 0 0] ne "-"} { lappend args -fullmutex 0 -nomutex 1 } uplevel [concat sqlite3_nomutex $args] } } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test types.test types2.test types3.test } -shutdown { rename sqlite3 {} rename sqlite3_nomutex sqlite3 } # Run some tests in SQLITE_CONFIG_MULTITHREAD mode. # test_suite "multithread" -description { Tests run in SQLITE_CONFIG_MULTITHREAD mode } -initialize { catch {db close} sqlite3_shutdown catch {sqlite3_config multithread} sqlite3_initialize autoinstall_test_functions } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test types.test types2.test types3.test } -shutdown { catch {db close} sqlite3_shutdown catch {sqlite3_config serialized} sqlite3_initialize autoinstall_test_functions } # Run some tests in SQLITE_OPEN_FULLMUTEX mode. # test_suite "fullmutex" -description { Tests run in SQLITE_OPEN_FULLMUTEX mode } -initialize { rename sqlite3 sqlite3_fullmutex proc sqlite3 {args} { if {[string range [lindex $args 0] 0 0] ne "-"} { lappend args -nomutex 0 -fullmutex 1 } uplevel [concat sqlite3_fullmutex $args] } } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test types.test types2.test types3.test } -shutdown { rename sqlite3 {} rename sqlite3_fullmutex sqlite3 } # Run some tests using the "onefile" demo. # test_suite "onefile" -description { Run some tests using the "test_onefile.c" demo } -initialize { rename sqlite3 sqlite3_onefile proc sqlite3 {args} { if {[string range [lindex $args 0] 0 0] ne "-"} { lappend args -vfs fs } uplevel [concat sqlite3_onefile $args] } } -files { conflict.test insert.test insert2.test insert3.test rollback.test select1.test select2.test select3.test } -shutdown { rename sqlite3 {} rename sqlite3_onefile sqlite3 } # Run some tests using UTF-16 databases. # test_suite "utf16" -description { Run tests using UTF-16 databases } -presql { pragma encoding = 'UTF-16' } -files { alter.test alter3.test auth.test bind.test blob.test capi2.test capi3.test collate1.test collate2.test collate3.test collate4.test collate5.test collate6.test conflict.test date.test delete.test expr.test fkey1.test func.test hook.test index.test insert2.test insert.test interrupt.test in.test intpkey.test ioerr.test join2.test join.test lastinsert.test laststmtchanges.test limit.test lock2.test lock.test main.test memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test null.test progress.test quote.test rowid.test select1.test select2.test select3.test select4.test select5.test select6.test sort.test subselect.test tableapi.test table.test temptable.test trace.test trigger1.test trigger2.test trigger3.test trigger4.test types2.test types.test unique.test update.test vacuum.test view.test where.test } # Run some tests in exclusive locking mode. # test_suite "exclusive" -description { Run tests in exclusive locking mode. } -presql { pragma locking_mode = 'exclusive' } -files { rollback.test select1.test select2.test malloc.test ioerr.test } # Run some tests in exclusive locking mode with truncated journals. # test_suite "exclusive-truncate" -description { Run tests in exclusive locking mode and truncate journal mode. } -presql { pragma locking_mode = 'exclusive'; pragma journal_mode = TRUNCATE; } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test update.test malloc.test ioerr.test } # Run some tests in persistent journal mode. # test_suite "persistent_journal" -description { Run tests in persistent-journal mode. } -presql { pragma journal_mode = persist } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test } # Run some tests in truncating journal mode. # test_suite "truncate_journal" -description { Run tests in persistent-journal mode. } -presql { pragma journal_mode = truncate } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test malloc.test ioerr.test } # Run some error tests in persistent journal mode. # test_suite "persistent_journal_error" -description { Run malloc.test and ioerr.test in persistent-journal mode. } -presql { pragma journal_mode = persist } -files { malloc.test ioerr.test } # Run some tests in no journal mode. # test_suite "no_journal" -description { Run tests in no-journal mode. } -presql { pragma journal_mode = persist } -files { delete.test delete2.test insert.test rollback.test select1.test select2.test trans.test update.test vacuum.test } # Run some error tests in no journal mode. # test_suite "no_journal_error" -description { Run malloc.test and ioerr.test in no-journal mode. } -presql { pragma journal_mode = persist } -files { malloc.test ioerr.test } # Run some crash-tests in autovacuum mode. # test_suite "autovacuum_crash" -description { Run crash.test in autovacuum mode. } -presql { pragma auto_vacuum = 1 } -files crash.test # Run some ioerr-tests in autovacuum mode. # test_suite "autovacuum_ioerr" -description { Run ioerr.test in autovacuum mode. } -presql { pragma auto_vacuum = 1 } -files ioerr.test # Run tests with an in-memory journal. # test_suite "inmemory_journal" -description { Run tests with an in-memory journal file. } -presql { pragma journal_mode = 'memory' } -files [test_set $::allquicktests -exclude { # Exclude all tests that simulate IO errors. autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test vacuum3.test incrblob_err.test diskfull.test backup_ioerr.test e_fts3.test # Exclude test scripts that use tcl IO to access journal files or count # the number of fsync() calls. pager.test exclusive.test jrnlmode.test sync.test misc1.test journal1.test conflict.test crash8.test tkt3457.test io.test # Exclude stmt.test, which expects sub-journals to use temporary files. stmt.test # WAL mode is different. wal* }] ifcapable mem3 { test_suite "memsys3" -description { Run tests using the allocator in mem3.c. } [test_set $::allquicktests -exclude { autovacuum.test delete3.test manydb.test bigrow.test incrblob2.test memdb.test bitvec.test index2.test memsubsys1.test capi3c.test ioerr.test memsubsys2.test capi3.test join3.test pagesize.test collate5.test limit.test backup_ioerr.test backup_malloc.test }] -initialize { catch {db close} sqlite3_reset_auto_extension sqlite3_shutdown sqlite3_config_heap 25000000 0 sqlite3_config_lookaside 0 0 ifcapable mem5 { # If both memsys3 and memsys5 are enabled in the build, the call to |
︙ | ︙ | |||
517 518 519 520 521 522 523 | install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } } ifcapable mem5 { | | | | | | | 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 | install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } } ifcapable mem5 { test_suite "memsys5" -description { Run tests using the allocator in mem5.c. } [test_set $::allquicktests -exclude { autovacuum.test delete3.test manydb.test bigrow.test incrblob2.test memdb.test bitvec.test index2.test memsubsys1.test capi3c.test ioerr.test memsubsys2.test capi3.test join3.test pagesize.test collate5.test limit.test zeroblob.test }] -initialize { catch {db close} sqlite3_shutdown sqlite3_config_heap 25000000 64 sqlite3_config_lookaside 0 0 install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_heap 0 0 sqlite3_config_lookaside 100 500 install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } test_suite "memsys5-2" -description { Run tests using the allocator in mem5.c in a different configuration. } -files { select1.test } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_heap 40000000 16 sqlite3_config_lookaside 0 0 install_malloc_faultsim 1 |
︙ | ︙ | |||
568 569 570 571 572 573 574 | install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } } ifcapable threadsafe { | | > | | | 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 | install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } } ifcapable threadsafe { test_suite "no_mutex_try" -description { The sqlite3_mutex_try() interface always fails } -files [ test_set $::allquicktests -exclude mutex1.test mutex2.test ] -initialize { catch {db close} sqlite3_shutdown install_mutex_counters 1 set ::disable_mutex_try 1 sqlite3_initialize autoinstall_test_functions } -shutdown { |
︙ | ︙ | |||
607 608 609 610 611 612 613 | # puts $fd [string repeat 1234567890 100000] # close $fd # eval sa_crashsql $options # } # } -shutdown { # rename crashsql {} # rename sa_crashsql crashsql | | | | | > | | | | | | | | | | | < < < | | < < < < | < | | | | < > > > > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > | 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 | # puts $fd [string repeat 1234567890 100000] # close $fd # eval sa_crashsql $options # } # } -shutdown { # rename crashsql {} # rename sa_crashsql crashsql # } -files crash.test test_suite "safe_append" -description { Run some tests on a SAFE_APPEND file-system. } -initialize { rename sqlite3 sqlite3_safeappend proc sqlite3 {args} { if {[string range [lindex $args 0] 0 0] ne "-"} { lappend args -vfs devsym } uplevel [concat sqlite3_safeappend $args] } sqlite3_simulate_device -char safe_append } -shutdown { rename sqlite3 {} rename sqlite3_shutdown sqlite3 } -files [ test_set $::allquicktests shared_err.test -exclude async3.test ] # The set of tests to run on the alternative-pcache set perm-alt-pcache-testset { async.test attach.test delete.test delete2.test index.test insert.test insert2.test join.test join2.test rollback.test select1.test select2.test trans.test update.test } test_suite "pcache0" -description { Alternative pcache implementation without random discard } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 1 0 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 0 0 0 sqlite3_config_lookaside 100 500 install_malloc_faultsim 1 sqlite3_initialize autoinstall_test_functions } -files ${perm-alt-pcache-testset} test_suite "pcache10" -description { Alternative pcache implementation without 10% random discard } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 1 50 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 0 0 0 sqlite3_initialize autoinstall_test_functions } -files ${perm-alt-pcache-testset} test_suite "pcache50" -description { Alternative pcache implementation without 50% random discard } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 1 50 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 0 0 0 sqlite3_initialize autoinstall_test_functions } -files ${perm-alt-pcache-testset} test_suite "pcache90" -description { Alternative pcache implementation without 90% random discard } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 1 50 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 0 0 0 sqlite3_initialize autoinstall_test_functions } -files ${perm-alt-pcache-testset} test_suite "pcache100" -description { Alternative pcache implementation that always discards when unpinning } -initialize { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 1 100 1 sqlite3_initialize autoinstall_test_functions } -shutdown { catch {db close} sqlite3_shutdown sqlite3_config_alt_pcache 0 0 0 sqlite3_initialize autoinstall_test_functions } -files ${perm-alt-pcache-testset} test_suite "journaltest" -description { Check that pages are synced before being written (test_journal.c). } -initialize { catch {db close} register_jt_vfs -default "" } -shutdown { unregister_jt_vfs } -files [test_set $::allquicktests -exclude { wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test async4.test bigfile.test }] if {[info commands register_demovfs] != ""} { test_suite "demovfs" -description { Check that the demovfs (code in test_demovfs.c) more or less works. } -initialize { register_demovfs } -shutdown { unregister_demovfs } -files { insert.test insert2.test insert3.test rollback.test select1.test select2.test select3.test } } test_suite "wal" -description { Run tests with journal_mode=WAL } -initialize { set ::G(savepoint6_iterations) 100 } -shutdown { unset -nocomplain ::G(savepoint6_iterations) } -files { savepoint.test savepoint2.test savepoint6.test trans.test avtrans.test } # End of tests ############################################################################# # run_tests NAME OPTIONS # # where available options are: # # -description TITLE (default "") # -initialize SCRIPT (default "") # -shutdown SCRIPT (default "") # -presql SQL (default "") # -files LIST-OF-FILES (default "") # proc run_tests {name args} { array set options $args set ::G(perm:name) $name set ::G(perm:presql) $options(-presql) set ::G(isquick) 1 uplevel $options(-initialize) foreach file [lsort $options(-files)] { slave_test_file $::testdir/$file } uplevel $options(-shutdown) unset ::G(perm:name) unset ::G(perm:presql) } proc run_test_suite {name} { if {[info exists ::testspec($name)]==0} { error "No such test suite: $name" } uplevel run_tests $name $::testspec($name) } proc help {} { foreach k $::testsuitelist { array set o $::testspec($k) puts "Test suite: \"$k\"" set d [string trim $o(-description)] set d [regsub {\n *} $d "\n "] puts " $d" puts "" } exit -1 } if {[info script] == $argv0} { proc main {argv} { if {[llength $argv]==0} { help } else { set suite [lindex $argv 0] if {[info exists ::testspec($suite)]==0} help set extra "" if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] } eval run_tests $suite $::testspec($suite) $extra } } main $argv finish_test } |
Changes to test/quick.test.
1 2 3 4 5 6 7 8 9 10 | # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all tests. # set testdir [file dirname $argv0] | | < > | < < < < < < < < | | < < < | < | < < < | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all tests. # set testdir [file dirname $argv0] source $testdir/permutations.test if {[info exists env(QUICKTEST_INCLUDE]} { # A hack so that releasetest.tcl keeps working. run_test_suite quick_plus_notify2 } else { run_test_suite quick } finish_test |
Changes to test/tester.tcl.
︙ | ︙ | |||
129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | # # --pause # --soft-heap-limit=NN # --maxerror=NN # --malloctrace=N # --backtrace=N # --binarylog=N # set cmdlinearg(soft-heap-limit) 0 set cmdlinearg(maxerror) 1000 set cmdlinearg(malloctrace) 0 set cmdlinearg(backtrace) 10 set cmdlinearg(binarylog) 0 set leftover [list] foreach a $argv { switch -regexp -- $a { {^-+pause$} { # Wait for user input before continuing. This is to give the user an # opportunity to connect profiling tools to the process. | > > | 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 | # # --pause # --soft-heap-limit=NN # --maxerror=NN # --malloctrace=N # --backtrace=N # --binarylog=N # --soak=N # set cmdlinearg(soft-heap-limit) 0 set cmdlinearg(maxerror) 1000 set cmdlinearg(malloctrace) 0 set cmdlinearg(backtrace) 10 set cmdlinearg(binarylog) 0 set cmdlinearg(soak) 0 set leftover [list] foreach a $argv { switch -regexp -- $a { {^-+pause$} { # Wait for user input before continuing. This is to give the user an # opportunity to connect profiling tools to the process. |
︙ | ︙ | |||
160 161 162 163 164 165 166 | foreach {dummy cmdlinearg(malloctrace)} [split $a =] break if {$cmdlinearg(malloctrace)} { sqlite3_memdebug_log start } } {^-+backtrace=.+$} { foreach {dummy cmdlinearg(backtrace)} [split $a =] break | < | > > > > > | 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 | foreach {dummy cmdlinearg(malloctrace)} [split $a =] break if {$cmdlinearg(malloctrace)} { sqlite3_memdebug_log start } } {^-+backtrace=.+$} { foreach {dummy cmdlinearg(backtrace)} [split $a =] break sqlite3_memdebug_backtrace $value } {^-+binarylog=.+$} { foreach {dummy cmdlinearg(binarylog)} [split $a =] break } {^-+soak=.+$} { foreach {dummy cmdlinearg(soak)} [split $a =] break set ::G(issoak) $cmdlinearg(soak) } default { lappend leftover $a } } } set argv $leftover |
︙ | ︙ | |||
289 290 291 292 293 294 295 | break } } } if {!$go} return if {[info exists ::G(perm:name)]} { | | | 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 | break } } } if {!$go} return if {[info exists ::G(perm:name)]} { set name "$::G(perm:name).$name" } incr_ntest puts -nonewline $name... flush stdout if {[catch {uplevel #0 "$cmd;\n"} result]} { puts "\nError: $result" |
︙ | ︙ | |||
1136 1137 1138 1139 1140 1141 1142 1143 | interp eval tinterp $script # Delete the interpreter used to run the test script. interp delete tinterp } proc slave_test_file {zFile} { | > > | | | > > | > | > | > > > > | > > > > > > > > | < | | 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 | interp eval tinterp $script # Delete the interpreter used to run the test script. interp delete tinterp } proc slave_test_file {zFile} { set tail [file tail $zFile] ifcapable shared_cache { set scs [sqlite3_enable_shared_cache] } reset_prng_state set ::sqlite_open_file_count 0 set time [time { slave_test_script [list source $zFile] }] set ms [expr [lindex $time 0] / 1000] # Test that all files opened by the test script were closed. # do_test ${tail}-closeallfiles { expr {$::sqlite_open_file_count>0} } {0} set ::sqlite_open_file_count 0 # Test that the global "shared-cache" setting was not altered by # the test script. # ifcapable shared_cache { set res [expr {[sqlite3_enable_shared_cache] == $scs}] do_test ${tail}-sharedcachesetting [list set {} $res] 1 } if {$::sqlite_open_file_count>0} { puts "$tail did not close all files: $::sqlite_open_file_count" fail_test "$tail-closeallfiles" set ::sqlite_open_file_count 0 } puts "Time: $tail $ms ms" show_memstats } # If the library is compiled with the SQLITE_DEFAULT_AUTOVACUUM macro set # to non-zero, then set the global variable $AUTOVACUUM to 1. set AUTOVACUUM $sqlite_options(default_autovacuum) source $testdir/thread_common.tcl |
Changes to test/veryquick.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all the tests run by quick.test except for those related # to malloc or IO error simulation. With these tests omitted, the overall # run time is reduced by about 75%. # # $Id: veryquick.test,v 1.9 2008/07/12 14:52:21 drh Exp $ set testdir [file dirname $argv0] | < | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file runs all the tests run by quick.test except for those related # to malloc or IO error simulation. With these tests omitted, the overall # run time is reduced by about 75%. # # $Id: veryquick.test,v 1.9 2008/07/12 14:52:21 drh Exp $ set testdir [file dirname $argv0] source $testdir/permutations.test run_test_suite veryquick finish_test |