/ Check-in [2e12aa3e]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix an issue with the permutation test script. (CVS 5619)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2e12aa3e078c0da9e418ff1f25a08f05cd03c07d
User & Date: drh 2008-08-26 23:08:04
Context
2008-08-27
09:44
Remove unreachable branches from pcache.c. (CVS 5620) check-in: 7de32498 user: danielk1977 tags: trunk
2008-08-26
23:08
Fix an issue with the permutation test script. (CVS 5619) check-in: 2e12aa3e user: drh tags: trunk
21:33
In the TCL interface, disable the authorizer when during a BEGIN, COMMIT, or ROLLBACK associated with the transaction method. Ticket #3336. (CVS 5618) check-in: 7e1032ab user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/permutations.test.

     5      5   #
     6      6   #    May you do good and not evil.
     7      7   #    May you find forgiveness for yourself and forgive others.
     8      8   #    May you share freely, never taking more than you give.
     9      9   #
    10     10   #***********************************************************************
    11     11   #
    12         -# $Id: permutations.test,v 1.23 2008/08/25 19:09:02 drh Exp $
           12  +# $Id: permutations.test,v 1.24 2008/08/26 23:08:04 drh Exp $
    13     13   
    14     14   set testdir [file dirname $argv0]
    15     15   source $testdir/tester.tcl
    16     16   
    17     17   # Argument processing.
    18     18   #
    19     19   #puts "PERM-DEBUG: argv=$argv"
    20     20   namespace eval ::perm {
    21         -  set testmode [lindex $::argv 0]
    22         -  set testfile [lindex $::argv 1]
           21  +  variable testmode [lindex $::argv 0]
           22  +  variable testfile [lindex $::argv 1]
    23     23   }
    24     24   set argv [lrange $argv 2 end]
    25         -#puts "PERM-DEBUG: testmode=$::perm::testmode"
           25  +#puts "PERM-DEBUG: testmode=$::perm::testmode tstfile=$::perm::testfile"
    26     26   
    27     27   set ::permutations_presql ""
    28     28   set ::permutations_test_prefix ""
    29     29   
    30     30   if {$::perm::testmode eq "veryquick"} {
    31     31     set ::perm::testmode [list persistent_journal no_journal]
    32     32     set ISQUICK 1