Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix a bug in the permutations.test script. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
3b20ad03be55613d922d81aec5313327 |
User & Date: | dan 2010-07-03 13:59:01.000 |
Context
2010-07-03
| ||
16:37 | Further changes to test scripts so that the "inmemory_journal" permutation works. (check-in: 50f2f7dfd6 user: dan tags: trunk) | |
13:59 | Fix a bug in the permutations.test script. (check-in: 3b20ad03be user: dan tags: trunk) | |
13:50 | Fix an assert in pager.c. And various test cases that fail with the in-memory journal permutation. (check-in: 622378dbe3 user: dan tags: trunk) | |
Changes
Changes to test/permutations.test.
︙ | ︙ | |||
784 785 786 787 788 789 790 | # -presql SQL # -files LIST-OF-FILES # -prefix NAME # proc run_tests {name args} { array set options $args | | > > | 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 | # -presql SQL # -files LIST-OF-FILES # -prefix NAME # proc run_tests {name args} { array set options $args set ::G(perm:name) $name set ::G(perm:prefix) $options(-prefix) 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:prefix) unset ::G(perm:presql) } proc run_test_suite {name} { if {[info exists ::testspec($name)]==0} { error "No such test suite: $name" } |
︙ | ︙ |
Changes to test/tester.tcl.
︙ | ︙ | |||
304 305 306 307 308 309 310 | set go 1 break } } } if {!$go} return | | | | 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 | set go 1 break } } } if {!$go} return if {[info exists ::G(perm:prefix)]} { set name "$::G(perm:prefix)$name" } incr_ntest puts -nonewline $name... flush stdout if {[catch {uplevel #0 "$cmd;\n"} result]} { puts "\nError: $result" |
︙ | ︙ |