diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-21 13:22:08 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-21 13:22:08 (GMT) |
commit | 55bf49d15f4347284e30f07c67f8043b0669704f (patch) | |
tree | a3ad834ae8e471157c3ed746d5f7e753f997d5a4 /tests/event.test | |
parent | f472165a3dc7d353f90af7f8143d2780b11c93fe (diff) | |
download | tcl-55bf49d15f4347284e30f07c67f8043b0669704f.zip tcl-55bf49d15f4347284e30f07c67f8043b0669704f.tar.gz tcl-55bf49d15f4347284e30f07c67f8043b0669704f.tar.bz2 |
Re-enable event-1.1, io-50.? and chan-io-50.? test-cases, trying to get a hand at the problem [f586089a2b]
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/event.test b/tests/event.test index 6e6d116..336c4e4 100644 --- a/tests/event.test +++ b/tests/event.test @@ -27,7 +27,7 @@ testConstraint exec [llength [info commands exec]] test event-1.1 {Tcl_CreateFileHandler, reading} -setup { testfilehandler close set result "" -} -constraints {testfilehandler nonPortable} -body { +} -constraints testfilehandler -body { testfilehandler create 0 readable off testfilehandler clear 0 testfilehandler oneevent @@ -595,16 +595,16 @@ test event-11.7 {Bug 16828b3744} { 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 |