diff options
| author | welch <welch> | 1998-11-12 05:54:21 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-11-12 05:54:21 (GMT) |
| commit | 9d8456a7c25586290e4119e7bc7fa5d506e58805 (patch) | |
| tree | 3dd6f1fef668245c6681a33badfe956ae560f52b /tests/load.test | |
| parent | c2bba04f0c60b8ff2d317f442016649f61261666 (diff) | |
| download | tcl-9d8456a7c25586290e4119e7bc7fa5d506e58805.zip tcl-9d8456a7c25586290e4119e7bc7fa5d506e58805.tar.gz tcl-9d8456a7c25586290e4119e7bc7fa5d506e58805.tar.bz2 | |
Added test cases for new pkg_mkIndex -load case
Diffstat (limited to 'tests/load.test')
| -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 17affb7..d5b27ae 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.2 1998/09/14 18:40:11 stanton Exp $ +# RCS: @(#) $Id: load.test,v 1.3 1998/11/12 05:54:21 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 } |