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 | 4df5497f65a1c1de3d19ed2dfa26c5b55fb9c01f (patch) | |
| tree | fdbc5619d18fd842c01e817086b0c291a5c00ecb /tests/nre.test | |
| parent | 37fed625022a173be5f37951385e9633fb86deb1 (diff) | |
| download | tcl-4df5497f65a1c1de3d19ed2dfa26c5b55fb9c01f.zip tcl-4df5497f65a1c1de3d19ed2dfa26c5b55fb9c01f.tar.gz tcl-4df5497f65a1c1de3d19ed2dfa26c5b55fb9c01f.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/nre.test')
| -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 { |