diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-23 19:46:58 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-23 19:46:58 (GMT) |
| commit | 369bd95896b7a34fbcf1780fe3bcae926771ecbf (patch) | |
| tree | fdbc5619d18fd842c01e817086b0c291a5c00ecb /tests | |
| parent | 64d35cac9591025ab8c2423b56e7e180779ef923 (diff) | |
| download | tcl-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.test | 4 |
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 { |