diff options
| author | surles <surles> | 1998-07-24 13:49:13 (GMT) |
|---|---|---|
| committer | surles <surles> | 1998-07-24 13:49:13 (GMT) |
| commit | aaf71b185279c46208cedda0caf510bc43baa437 (patch) | |
| tree | adfbcc6f4259a132707c66b34c76a64cab2654f4 /tests/interp.test | |
| parent | 88d6f2dc3a97fd42cfca3ea9bb1cb3a721e10c76 (diff) | |
| download | tcl-aaf71b185279c46208cedda0caf510bc43baa437.zip tcl-aaf71b185279c46208cedda0caf510bc43baa437.tar.gz tcl-aaf71b185279c46208cedda0caf510bc43baa437.tar.bz2 | |
Updated core w/ Micheals latest changes.
Diffstat (limited to 'tests/interp.test')
| -rw-r--r-- | tests/interp.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/interp.test b/tests/interp.test index 919774f..6755f71 100644 --- a/tests/interp.test +++ b/tests/interp.test @@ -148,8 +148,8 @@ test interp-3.8 {testing interp exists and interp slaves} { } {1 {wrong # args: should be "interp slaves ?path?"}} test interp-3.9 {testing interp exists and interp slaves} { interp create {a a2} -safe - interp slaves a -} {a2} + expr {[lsearch [interp slaves a] a2] >= 0} +} 1 test interp-3.10 {testing interp exists and interp slaves} { interp exists {a a2} } 1 @@ -175,8 +175,8 @@ test interp-4.5 {testing interp delete} { interp create a interp create {a x1} interp delete {a x1} - interp slaves a -} "" + expr {[lsearch [interp slaves a] x1] >= 0} +} 0 test interp-4.6 {testing interp delete} { interp create c1 interp create c2 |