Tcl Source Code

Artifact 8d0172b443b8aa7d25fbec35d906ae2a530c788a:

Attachment "teoviTest.patch" to ticket [1904111fff] added by msofer 2008-02-29 00:15:04.

---

diff -ur tests/interp.test /tmp/tclTMP/tests/interp.test
--- tests/interp.test	2007-12-13 22:19:19.000000000 -0300
+++ /tmp/tclTMP/tests/interp.test	2008-02-28 15:02:03.000000000 -0200
@@ -2514,7 +2514,7 @@
     }]
     interp delete $i
     set r
-} {1 {too many nested evaluations (infinite loop?)} 48}
+} {1 {too many nested evaluations (infinite loop?)} 49}
 
 test interp-29.3.2 {recursion limit} {
     set i [interp create]
@@ -2526,7 +2526,7 @@
     }]
    interp delete $i
    set r
-} {1 {too many nested evaluations (infinite loop?)} 48}
+} {1 {too many nested evaluations (infinite loop?)} 49}
 
 test interp-29.3.3 {recursion limit} {
     set i [interp create]
@@ -2538,7 +2538,7 @@
     }]
    interp delete $i
    set r
-} {1 {too many nested evaluations (infinite loop?)} 48}
+} {1 {too many nested evaluations (infinite loop?)} 49}
 
 test interp-29.3.4 {recursion limit error reporting} {
     interp create slave
@@ -2749,7 +2749,7 @@
     }]
    interp delete $i
    set r
-} 49
+} 50
 
 test interp-29.4.2 {recursion limit inheritance} {
     set i [interp create]
@@ -2763,7 +2763,7 @@
     }]
    interp delete $i
    set r
-} 49
+} 50
 
 test interp-29.5.1 {does slave recursion limit affect master?} {
     set before [interp recursionlimit {}]
diff -ur tests/parse.test /tmp/tclTMP/tests/parse.test
--- tests/parse.test	2007-12-13 22:19:20.000000000 -0300
+++ /tmp/tclTMP/tests/parse.test	2008-02-28 15:02:03.000000000 -0200
@@ -1021,7 +1021,7 @@
     interp create i
     load {} Tcltest i
     i eval {proc {} args {}}
-    interp recursionlimit i 3
+    interp recursionlimit i 2
 } -body {
     i eval {testevalex {[[]]}}
 } -cleanup {
@@ -1041,7 +1041,7 @@
 test parse-19.4 {Bug 1115904: recursion limit in Tcl_EvalEx} -setup {
     interp create i
     i eval {proc {} args {}}
-    interp recursionlimit i 3
+    interp recursionlimit i 2
 } -body {
     i eval {subst {[[]]}}
 } -cleanup {