Fix an issue with the permutation test script. (CVS 5619)

FossilOrigin-Name: 2e12aa3e078c0da9e418ff1f25a08f05cd03c07d
This commit is contained in:
drh
2008-08-26 23:08:04 +00:00
parent 1f1549f8f3
commit 426c854102
3 changed files with 11 additions and 11 deletions
+4 -4
View File
@@ -9,7 +9,7 @@
#
#***********************************************************************
#
# $Id: permutations.test,v 1.23 2008/08/25 19:09:02 drh Exp $
# $Id: permutations.test,v 1.24 2008/08/26 23:08:04 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -18,11 +18,11 @@ source $testdir/tester.tcl
#
#puts "PERM-DEBUG: argv=$argv"
namespace eval ::perm {
set testmode [lindex $::argv 0]
set testfile [lindex $::argv 1]
variable testmode [lindex $::argv 0]
variable testfile [lindex $::argv 1]
}
set argv [lrange $argv 2 end]
#puts "PERM-DEBUG: testmode=$::perm::testmode"
#puts "PERM-DEBUG: testmode=$::perm::testmode tstfile=$::perm::testfile"
set ::permutations_presql ""
set ::permutations_test_prefix ""