improved test fixes

FossilOrigin-Name: 80965d40423d9768e9e589ce7ed82f13dbdb7857

1 files changed, 7 insertions, 13 deletions

diff --git a/tests/interp.test b/tests/interp.test
index bdd87fa..6c22b5e 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: interp.test,v 1.62 2009/01/29 17:13:50 dgp Exp $
+# RCS: @(#) $Id: interp.test,v 1.63 2009/01/30 16:01:34 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -2567,8 +2567,8 @@ test interp-29.3.4 {recursion limit error reporting} {
 	        eval {		# 3
 		    eval {	# 4
 		        eval {	# 5
-			     interp recursionlimit {} 5
-			     set x ok
+    interp recursionlimit {} [expr {5+[namespace ensemble exists ::interp]}]
+    set x ok
 			}
 		    }
 		}
@@ -2588,8 +2588,8 @@ test interp-29.3.5 {recursion limit error reporting} {
 	        eval {		# 3
 		    eval {	# 4
 		        eval {	# 5
-			    interp recursionlimit {} 4
-			    set x ok
+    interp recursionlimit {} [expr {4+[namespace ensemble exists ::interp]}]
+    set x ok
 			}
 		    }
 		}
@@ -2609,14 +2609,8 @@ test interp-29.3.6 {recursion limit error reporting} {
 	        eval {		# 3
 		    eval {	# 4
 		        eval {	# 5
-			    # Conversion to an ensemble changed the result,
-			    # because ensemble dispatch consumes an additional
-			    # recursion level.  Work around for now by
-			    # directly calling the subcommand target.
-			    #
-			    #interp recursionlimit {} 6
-			    ::tcl::interp::recursionlimit {} 6
-			    set x ok
+    interp recursionlimit {} [expr {6+[namespace ensemble exists ::interp]}]
+    set x ok
 			}
 		    }
 		}