summaryrefslogtreecommitdiffstats
path: root/tests/unsupported.test
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-09-05 01:19:55 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-09-05 01:19:55 (GMT)
commiteab20b1515b9e3c6dfa404b57482ef34429d1a63 (patch)
treea6ff94ecc4d59a29e56cf7e3c05015b3e5b3294c /tests/unsupported.test
parentdc278b028d2f80dcc48ee9cb4273d863d995bbae (diff)
downloadtcl-eab20b1515b9e3c6dfa404b57482ef34429d1a63.zip
tcl-eab20b1515b9e3c6dfa404b57482ef34429d1a63.tar.gz
tcl-eab20b1515b9e3c6dfa404b57482ef34429d1a63.tar.bz2
* generic/tclTrace.test (TraceVarProc):
* generic/unsupported.test: insure that unset traces are run even when the coroutine is unwinding [Bug 2093947]
Diffstat (limited to 'tests/unsupported.test')
-rw-r--r--tests/unsupported.test27
1 files changed, 26 insertions, 1 deletions
diff --git a/tests/unsupported.test b/tests/unsupported.test
index 2c1a281..74f91aa 100644
--- a/tests/unsupported.test
+++ b/tests/unsupported.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unsupported.test,v 1.9 2008/09/04 16:34:55 msofer Exp $
+# RCS: @(#) $Id: unsupported.test,v 1.10 2008/09/05 01:20:01 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -810,6 +810,31 @@ test unsupported-C.4.2 {bug #2093188} -constraints {coroutine} \
unset ::res
} -result {{} 3 {{v {} read} {v {} unset}}}
+test unsupported-C.4.2 {bug #2093947} -constraints {coroutine} \
+-setup {
+ proc foo {} {
+ set v 1
+ trace add variable v {write unset} bar
+ yield
+ set v 2
+ yield
+ set v 3
+ }
+ proc bar args {lappend ::res $args}
+} -body {
+ coroutine a foo
+ a
+ a
+ coroutine a foo
+ a
+ rename a {}
+ set ::res
+} -cleanup {
+ rename foo {}
+ rename bar {}
+ unset ::res
+} -result {{v {} write} {v {} write} {v {} unset} {v {} write} {v {} unset}}
+
# cleanup
::tcltest::cleanupTests