diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-28 22:49:22 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-28 22:49:22 (GMT) |
commit | d2629fb2726fa18af638288c9c9aa89369b9fade (patch) | |
tree | 5a668f6c4e6abf7a07037bf9a931592971a77f11 /tests/event.test | |
parent | 2880e7da55a9d5ff7d8ba8fed48743f0e15733a4 (diff) | |
parent | edc450c53752cf92b00a45883fee2d66a2bde27c (diff) | |
download | tcl-d2629fb2726fa18af638288c9c9aa89369b9fade.zip tcl-d2629fb2726fa18af638288c9c9aa89369b9fade.tar.gz tcl-d2629fb2726fa18af638288c9c9aa89369b9fade.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/event.test b/tests/event.test index 0d1b06c..207c799 100644 --- a/tests/event.test +++ b/tests/event.test @@ -583,6 +583,34 @@ test event-11.6 {Tcl_VwaitCmd procedure: round robin scheduling, same source} { removeFile $test2file list $x $y $z } {3 3 done} +test event-11.7 {Bug 16828b3744} { + after idle { + set ::t::v 1 + namespace delete ::t + } + namespace eval ::t { + vwait ::t::v + } +} {} +test event-11.8 {Bug 16828b3744} -setup { + oo::class create A { + variable continue + + method start {} { + after idle [self] destroy + + set continue 0 + vwait [namespace current]::continue + } + destructor { + set continue 1 + } + } +} -body { + [A new] start +} -cleanup { + A destroy +} -result {} test event-12.1 {Tcl_UpdateCmd procedure} -returnCodes error -body { update a b |