diff options
| author | welch <welch> | 1998-12-02 20:07:52 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-12-02 20:07:52 (GMT) |
| commit | 32a79b2ff96bfafd432e5aa9c1de68fdaa028544 (patch) | |
| tree | 43c0af64380a54e6b8326d1712821de3ed40d8bf /tests | |
| parent | 268b0e0536f8b73a091b695841708ebe48c4606b (diff) | |
| download | tcl-32a79b2ff96bfafd432e5aa9c1de68fdaa028544.zip tcl-32a79b2ff96bfafd432e5aa9c1de68fdaa028544.tar.gz tcl-32a79b2ff96bfafd432e5aa9c1de68fdaa028544.tar.bz2 | |
8.0.4 merge
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/load.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/load.test b/tests/load.test index ccf0fab..9336f63 100644 --- a/tests/load.test +++ b/tests/load.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: load.test,v 1.1.2.2 1998/09/24 23:59:29 stanton Exp $ +# RCS: @(#) $Id: load.test,v 1.1.2.3 1998/12/02 20:08:08 welch Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -27,7 +27,7 @@ if ![file readable [file join $testDir pkga$ext]] { return } -if [string match *pkga* [set alreadyLoaded [info loaded {}]]] { +if [string match *pkga* [set alreadyLoaded [info loaded]]] { puts "load tests have already been run once: skipping (can't rerun)" return } |