diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/interp.test | 12 | ||||
| -rw-r--r-- | tests/parse.test | 6 | ||||
| -rw-r--r-- | tests/stack.test | 6 |
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\ |