diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-06-25 01:13:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-06-25 01:13:38 (GMT) |
| commit | eca141d09f28440e73a5f323d01499837bbe4e9d (patch) | |
| tree | 47d7689875630a938a7e91ec0f3a4eee6b0e3949 /tests/parseOld.test | |
| parent | 8ec6b9addefee0835769d744c4f9cabb7ae872ff (diff) | |
| download | tcl-eca141d09f28440e73a5f323d01499837bbe4e9d.zip tcl-eca141d09f28440e73a5f323d01499837bbe4e9d.tar.gz tcl-eca141d09f28440e73a5f323d01499837bbe4e9d.tar.bz2 | |
* Implementation of TIP 101. Adds and exports a [configure] command
from tcltest.
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 |