Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Run permutation subtests in sorted order. (CVS 5646) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
4cd1bdf3ce8077e10dcd8ae4fe2df0dd |
User & Date: | drh 2008-08-30 16:07:04.000 |
Context
2008-08-30
| ||
16:34 | Version 3.6.2 (CVS 5647) (check-in: 88c51b9f15 user: drh tags: trunk, release) | |
16:07 | Run permutation subtests in sorted order. (CVS 5646) (check-in: 4cd1bdf3ce user: drh tags: trunk) | |
13:25 | Add some code to permutations.test to make sure no test file modifies the shared-cache setting. (CVS 5645) (check-in: 8565b7c665 user: danielk1977 tags: trunk) | |
Changes
Changes to test/permutations.test.
1 2 3 4 5 6 7 8 9 10 11 | # 2008 June 21 # # 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. # #*********************************************************************** # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # 2008 June 21 # # 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. # #*********************************************************************** # # $Id: permutations.test,v 1.27 2008/08/30 16:07:04 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Argument processing. # #puts "PERM-DEBUG: argv=$argv" |
︙ | ︙ | |||
74 75 76 77 78 79 80 81 82 83 84 85 86 87 | lookaside.test } set ALLTESTS [list] foreach filename [glob $testdir/*.test] { set filename [file tail $filename] if {[lsearch $EXCLUDE $filename] < 0} { lappend ALLTESTS $filename } } rename finish_test really_finish_test2 proc finish_test {} {} rename do_test really_do_test proc do_test {name args} { | > | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | lookaside.test } set ALLTESTS [list] foreach filename [glob $testdir/*.test] { set filename [file tail $filename] if {[lsearch $EXCLUDE $filename] < 0} { lappend ALLTESTS $filename } } set ALLTESTS [lsort $ALLTESTS] rename finish_test really_finish_test2 proc finish_test {} {} rename do_test really_do_test proc do_test {name args} { |
︙ | ︙ |