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)
commit83138348a496b45f8806f1bf96d207d789bdff20 (patch)
tree4bc14e22759a3d022f0cfebe482fbd9397392d28 /tests/interp.test
parent45814c0d69b2f08f1940cd3ca3cd8ce389815779 (diff)
downloadtcl-83138348a496b45f8806f1bf96d207d789bdff20.zip
tcl-83138348a496b45f8806f1bf96d207d789bdff20.tar.gz
tcl-83138348a496b45f8806f1bf96d207d789bdff20.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 {}