summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2016-01-23 19:46:58 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2016-01-23 19:46:58 (GMT)
commit369bd95896b7a34fbcf1780fe3bcae926771ecbf (patch)
treefdbc5619d18fd842c01e817086b0c291a5c00ecb /tests
parent64d35cac9591025ab8c2423b56e7e180779ef923 (diff)
downloadtcl-369bd95896b7a34fbcf1780fe3bcae926771ecbf.zip
tcl-369bd95896b7a34fbcf1780fe3bcae926771ecbf.tar.gz
tcl-369bd95896b7a34fbcf1780fe3bcae926771ecbf.tar.bz2
add a test to insure that callbacks run at the correct C-stack depth while unwinding the NRE stack.
Diffstat (limited to 'tests')
-rw-r--r--tests/nre.test4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/nre.test b/tests/nre.test
index e512eac..9df5eb1 100644
--- a/tests/nre.test
+++ b/tests/nre.test
@@ -64,6 +64,10 @@ if {[testConstraint testnrelevels]} {
namespace import testnre::*
}
+test nre-0.1 {levels while unwinding} {
+ testnreunwind
+} {0 0 0}
+
test nre-1.1 {self-recursive procs} -setup {
proc a i [makebody {a $i}]
} -body {