diff options
Diffstat (limited to 'tests/parseOld.test')
-rw-r--r-- | tests/parseOld.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/parseOld.test b/tests/parseOld.test index 2c597bc..80e6338 100644 --- a/tests/parseOld.test +++ b/tests/parseOld.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: parseOld.test,v 1.10 2001/08/02 01:20:05 hobbs Exp $ +# RCS: @(#) $Id: parseOld.test,v 1.11 2002/06/25 01:13:38 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -23,6 +23,9 @@ if {[lsearch [namespace children] ::tcltest] == -1} { tcltest::testConstraint testwordend \ [string equal "testwordend" [info commands testwordend]] +# Save the argv value for restoration later +set savedArgv $argv + proc fourArgs {a b c d} { global arg1 arg2 arg3 arg4 set arg1 $a @@ -536,6 +539,7 @@ test parseOld-15.5 {TclScriptEnd procedure} { } {0} # cleanup +set argv $savedArgv ::tcltest::cleanupTests return |