merging changes from 8.0.3 into 8.1a2

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/interp.test b/tests/interp.test
index 4c43edb..ac8f792 100644
--- a/tests/interp.test
+++ b/tests/interp.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.
 #
-# SCCS: @(#) interp.test 1.70 98/02/17 23:45:11
+# RCS: @(#) $Id: interp.test,v 1.1.2.2 1998/09/24 23:59:27 stanton Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -146,8 +146,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
@@ -173,8 +173,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