diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/interp.test | 16 | ||||
| -rw-r--r-- | tests/stack.test | 6 | ||||
| -rw-r--r-- | tests/trace.test | 29 |
3 files changed, 39 insertions, 12 deletions
diff --git a/tests/interp.test b/tests/interp.test index f82151e..d5699cd 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.15 2002/07/01 07:52:03 dgp Exp $ +# RCS: @(#) $Id: interp.test,v 1.16 2002/07/29 00:25:49 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2433,7 +2433,7 @@ test interp-29.3.1 {recursion limit} { }] interp delete $i set r -} {1 {too many nested calls to Tcl_Eval (infinite loop?)} 48} +} {1 {too many nested evaluations (infinite loop?)} 48} test interp-29.3.2 {recursion limit} { set i [interp create] @@ -2445,7 +2445,7 @@ test interp-29.3.2 {recursion limit} { }] interp delete $i set r -} {1 {too many nested calls to Tcl_Eval (infinite loop?)} 48} +} {1 {too many nested evaluations (infinite loop?)} 48} test interp-29.3.3 {recursion limit} { set i [interp create] @@ -2457,7 +2457,7 @@ test interp-29.3.3 {recursion limit} { }] interp delete $i set r -} {1 {too many nested calls to Tcl_Eval (infinite loop?)} 48} +} {1 {too many nested evaluations (infinite loop?)} 48} test interp-29.3.4 {recursion limit error reporting} { interp create slave @@ -2542,7 +2542,7 @@ test interp-29.3.7 {recursion limit error reporting} { set r2 [slave eval { set msg }] interp delete slave list $r1 $r2 -} {1 {too many nested calls to Tcl_Eval (infinite loop?)}} +} {1 {too many nested evaluations (infinite loop?)}} test interp-29.3.8 {recursion limit error reporting} { interp create slave @@ -2564,7 +2564,7 @@ test interp-29.3.8 {recursion limit error reporting} { set r2 [slave eval { set msg }] interp delete slave list $r1 $r2 -} {1 {too many nested calls to Tcl_Eval (infinite loop?)}} +} {1 {too many nested evaluations (infinite loop?)}} test interp-29.3.9 {recursion limit error reporting} { interp create slave @@ -2608,7 +2608,7 @@ test interp-29.3.10 {recursion limit error reporting} { set r2 [slave eval { set msg }] interp delete slave list $r1 $r2 -} {1 {too many nested calls to Tcl_Eval (infinite loop?)}} +} {1 {too many nested evaluations (infinite loop?)}} test interp-29.3.11 {recursion limit error reporting} { interp create slave @@ -2630,7 +2630,7 @@ test interp-29.3.11 {recursion limit error reporting} { set r2 [slave eval { set msg }] interp delete slave list $r1 $r2 -} {1 {too many nested calls to Tcl_Eval (infinite loop?)}} +} {1 {too many nested evaluations (infinite loop?)}} test interp-29.3.12 {recursion limit error reporting} { interp create slave diff --git a/tests/stack.test b/tests/stack.test index 8d07bfb..828352b 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.14 2002/06/22 04:19:47 dgp Exp $ +# RCS: @(#) $Id: stack.test,v 1.15 2002/07/29 00:25:49 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -43,7 +43,7 @@ test stack-1.1 {maxNestingDepth reached on infinite recursion} {minStack2400} { catch {recurse} rv rename recurse {} set rv -} {too many nested calls to Tcl_Eval (infinite loop?)} +} {too many nested evaluations (infinite loop?)} test stack-2.1 {maxNestingDepth reached on infinite recursion} {minStack2400} { # do this in a slave to not mess with parent @@ -53,7 +53,7 @@ test stack-2.1 {maxNestingDepth reached on infinite recursion} {minStack2400} { set msg [$slave eval { catch {foo} msg ; set msg }] interp delete $slave set msg -} {too many nested calls to AliasObjCmd (infinite loop using alias?)} +} {too many nested evaluations (infinite loop?)} # cleanup ::tcltest::cleanupTests diff --git a/tests/trace.test b/tests/trace.test index 2229b69..10c70c9 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: trace.test,v 1.20 2002/07/18 13:37:46 msofer Exp $ +# RCS: @(#) $Id: trace.test,v 1.21 2002/07/29 00:25:50 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1805,6 +1805,32 @@ test trace-25.11 {delete command during enter and enterstep traces} { list $err $info [trace info execution foo] } {{invalid command name "foo"} {{foo 1} enter} {unknown command "foo"}} +test trace-26.1 {trace targetCmd when invoked through an alias} { + proc foo {args} { + set b $args + } + set info {} + trace add execution foo enter [list traceExecute foo] + interp alias {} bar {} foo 1 + bar 2 + trace remove execution foo enter [list traceExecute foo] + set info +} {{foo {foo 1 2} enter}} +test trace-26.2 {trace targetCmd when invoked through an alias} { + proc foo {args} { + set b $args + } + set info {} + trace add execution foo enter [list traceExecute foo] + interp create child + interp alias child bar {} foo 1 + child eval bar 2 + interp delete child + trace remove execution foo enter [list traceExecute foo] + set info +} {{foo {foo 1 2} enter}} + + # Delete procedures when done, so we don't clash with other tests # (e.g. foobar will clash with 'unknown' tests). catch {rename foobar {}} @@ -1814,3 +1840,4 @@ catch {rename bar {}} # cleanup ::tcltest::cleanupTests return + |