diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 28 | ||||
| -rw-r--r--[-rwxr-xr-x] | tests/lsetComp.test | 0 | ||||
| -rw-r--r--[-rwxr-xr-x] | tests/notify.test | 0 | ||||
| -rw-r--r--[-rwxr-xr-x] | tests/tcltest.test | 0 |
4 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 diff --git a/tests/lsetComp.test b/tests/lsetComp.test index 6846cbf..6846cbf 100755..100644 --- a/tests/lsetComp.test +++ b/tests/lsetComp.test diff --git a/tests/notify.test b/tests/notify.test index d2b9123..d2b9123 100755..100644 --- a/tests/notify.test +++ b/tests/notify.test diff --git a/tests/tcltest.test b/tests/tcltest.test index e66678b..e66678b 100755..100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test |