diff options
author | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
---|---|---|
committer | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
commit | 540521771129cfb3a851405ae4306448fea3e769 (patch) | |
tree | 75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /tests/nre.test | |
parent | 4b301d844892c52ec5fecce47f03c91a551639ca (diff) | |
parent | b4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff) | |
download | tcl-tip_444.zip tcl-tip_444.tar.gz tcl-tip_444.tar.bz2 |
merge trunktip_444
Diffstat (limited to 'tests/nre.test')
-rw-r--r-- | tests/nre.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/nre.test b/tests/nre.test index 9df5eb1..3313df5 100644 --- a/tests/nre.test +++ b/tests/nre.test @@ -29,9 +29,9 @@ if {[testConstraint testnrelevels]} { namespace path ::tcl::mathop # # [testnrelevels] returns a 6-list with: C-stack depth, iPtr->numlevels, - # cmdFrame level, callFrame level, tosPtr and callback depth + # cmdFrame level, callFrame level, tosPtr and callback depth # - variable last [testnrelevels] + variable last [testnrelevels] proc depthDiff {} { variable last set depth [testnrelevels] @@ -327,7 +327,7 @@ test nre-8.1 {nre and {*}} -body { } -cleanup { rename inner {} rename outer {} -} -result {1 1 1} +} -result {1 1 1} test nre-8.2 {nre and {*}, [Bug 2415422]} -body { # force an expansion that grows the evaluation stack, check that nre # adapts the bcFramePtr. This causes an NRE assertion to fail if it is not |