diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-25 20:38:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-25 20:38:16 (GMT) |
| commit | fdee46ab16b879589155729e6db4fdabe235880f (patch) | |
| tree | ba7a7a4cc25027d8df81784b5a53e2add157f47b /tests/tailcall.test | |
| parent | 94f9cf81ed3e156bd372a3cac249974d1acb4e1d (diff) | |
| parent | 0839047d8bed631eeb82c7c3e26b0f13461717e6 (diff) | |
| download | tcl-fdee46ab16b879589155729e6db4fdabe235880f.zip tcl-fdee46ab16b879589155729e6db4fdabe235880f.tar.gz tcl-fdee46ab16b879589155729e6db4fdabe235880f.tar.bz2 | |
merge 8.6
Diffstat (limited to 'tests/tailcall.test')
| -rw-r--r-- | tests/tailcall.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/tailcall.test b/tests/tailcall.test index ce506a7..9174167 100644 --- a/tests/tailcall.test +++ b/tests/tailcall.test @@ -688,6 +688,26 @@ if {[testConstraint testnrelevels]} { namespace delete testnre } +test tailcall-14.1 {in a deleted namespace} -body { + namespace eval ns { + proc p args { + tailcall [namespace current] $args + } + namespace delete [namespace current] + p + } +} -returnCodes 1 -result {namespace "::ns" not found} + +test tailcall-14.1-bc {{in a deleted namespace} {byte compiled}} -body { + namespace eval ns { + proc p args { + tailcall [namespace current] {*}$args + } + namespace delete [namespace current] + p + } +} -returnCodes 1 -result {namespace "::ns" not found} + # cleanup ::tcltest::cleanupTests |