summaryrefslogtreecommitdiffstats
path: root/tests/interp.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-14 20:20:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-14 20:20:11 (GMT)
commit058f0df44de4f6b80f1df5494c14c4d592928768 (patch)
tree4bc14e22759a3d022f0cfebe482fbd9397392d28 /tests/interp.test
parentbee5c35f44835d25e2e0604713cb9e5ea0a9c5f4 (diff)
downloadtcl-058f0df44de4f6b80f1df5494c14c4d592928768.zip
tcl-058f0df44de4f6b80f1df5494c14c4d592928768.tar.gz
tcl-058f0df44de4f6b80f1df5494c14c4d592928768.tar.bz2
Add several tests to check consistency of stack traces.
Diffstat (limited to 'tests/interp.test')
-rw-r--r--tests/interp.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/interp.test b/tests/interp.test
index 0af9887..ad99fac 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -1599,6 +1599,20 @@ test interp-20.50 {Bug 2486550} -setup {
} -cleanup {
interp delete slave
} -returnCodes error -match glob -result *
+test interp-20.50.1 {Bug 2486550} -setup {
+ interp create slave
+} -body {
+ slave hide coroutine
+ catch {slave invokehidden coroutine} m o
+ dict get $o -errorinfo
+} -cleanup {
+ unset -nocomplain m 0
+ interp delete slave
+} -returnCodes ok -result {wrong # args: should be "coroutine name cmd ?arg ...?"
+ while executing
+"coroutine"
+ invoked from within
+"slave invokehidden coroutine"}
test interp-21.1 {interp hidden} {
interp hidden {}