Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix a bug in the permutations.test script. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3b20ad03be55613d922d81aec5313327 |
| User & Date: | dan 2010-07-03 13:59:01 |
Context
|
2010-07-03
| ||
| 16:37 | Further changes to test scripts so that the "inmemory_journal" permutation works. (check-in: 50f2f7df user: dan tags: trunk) | |
| 13:59 | Fix a bug in the permutations.test script. (check-in: 3b20ad03 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: 622378db user: dan tags: trunk) | |
Changes
Changes to test/permutations.test.
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 |
# -presql SQL
# -files LIST-OF-FILES
# -prefix NAME
#
proc run_tests {name args} {
array set options $args
set ::G(perm:name) $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:presql)
}
proc run_test_suite {name} {
if {[info exists ::testspec($name)]==0} {
error "No such test suite: $name"
}
|
| > > |
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 311 312 313 314 315 316 317 318 319 |
set go 1
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"
|
| | |
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"
|