NRE implementation [Patch 2017110]

3 files changed, 12 insertions, 12 deletions

diff --git a/tests/interp.test b/tests/interp.test
index 7af5856..a9c9e8d 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.57 2008/06/20 20:48:49 dgp Exp $
+# RCS: @(#) $Id: interp.test,v 1.58 2008/07/13 09:03:35 msofer Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -2534,7 +2534,7 @@ test interp-29.3.1 {recursion limit} {
     }]
     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]
@@ -2546,7 +2546,7 @@ test interp-29.3.2 {recursion limit} {
     }]
    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]
@@ -2558,7 +2558,7 @@ test interp-29.3.3 {recursion limit} {
     }]
    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
@@ -2769,7 +2769,7 @@ test interp-29.4.1 {recursion limit inheritance} {
     }]
    interp delete $i
    set r
-} 49
+} 50
 
 test interp-29.4.2 {recursion limit inheritance} {
     set i [interp create]
@@ -2783,7 +2783,7 @@ test interp-29.4.2 {recursion limit inheritance} {
     }]
    interp delete $i
    set r
-} 49
+} 50
 
 test interp-29.5.1 {does slave recursion limit affect master?} {
     set before [interp recursionlimit {}]
diff --git a/tests/parse.test b/tests/parse.test
index e978907..edf37d6 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parse.test,v 1.31 2008/05/21 20:28:15 dgp Exp $
+# RCS: @(#) $Id: parse.test,v 1.32 2008/07/13 09:03:35 msofer Exp $
 
 if {[catch {package require tcltest 2.0.2}]} {
     puts stderr "Skipping tests in [info script]. tcltest 2.0.2 required."
@@ -1025,7 +1025,7 @@ test parse-19.2 {Bug 1115904: recursion limit in Tcl_EvalEx} -constraints {
     interp create i
     load {} Tcltest i
     i eval {proc {} args {}}
-    interp recursionlimit i 3
+    interp recursionlimit i 2
 } -body {
     i eval {testevalex {[[]]}}
 } -cleanup {
@@ -1045,7 +1045,7 @@ test parse-19.3 {Bug 1115904: recursion limit in Tcl_EvalEx} -setup {
 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 {
diff --git a/tests/stack.test b/tests/stack.test
index 2281c00..4a349fa 100644
--- a/tests/stack.test
+++ b/tests/stack.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: stack.test,v 1.22 2007/12/13 15:26:07 dgp Exp $
+# RCS: @(#) $Id: stack.test,v 1.23 2008/07/13 09:03:36 msofer Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -25,8 +25,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
 
 testConstraint minStack2400 1
 if {[testConstraint unix]} {
-    set stackSize [exec /bin/sh -c "ulimit -s"]
-    if {[string is integer $stackSize] && ($stackSize < 2400)} {
+    set stackSize [teststacklimit]
+    if {($stackSize > -1)  && ($stackSize < 2400)} {
         puts stderr "WARNING: the default application stacksize of $stackSize\
                 may cause Tcl to\ncrash due to stack overflow before the\
                 recursion limit is reached.\nA minimum stacksize of 2400\