diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 07:30:16 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:54 +1000 |
commit | ff0f40d8ec4af2399e6265d731c8070987e24270 (patch) | |
tree | f52c3e5f1ae6dfd413db6919f7e0e44a218a98b4 /tests | |
parent | 4fb87c26cef044916e8c6666dadaa4c9ce0e6e82 (diff) | |
download | jimtcl-ff0f40d8ec4af2399e6265d731c8070987e24270.zip jimtcl-ff0f40d8ec4af2399e6265d731c8070987e24270.tar.gz jimtcl-ff0f40d8ec4af2399e6265d731c8070987e24270.tar.bz2 |
Add do-nothing fileevent for Tcl compatibility
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/event.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/event.test b/tests/event.test index 0374539..189bb1e 100644 --- a/tests/event.test +++ b/tests/event.test @@ -117,10 +117,10 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} { set x 0 set y 0 set z 0 - $s2 readable { incr z } + fileevent $s2 readable { incr z } vwait z - $f1 writable { incr x; if { $y == 3 } { set z done } } - $s2 readable { incr y; if { $x == 3 } { set z done } } + fileevent $f1 writable { incr x; if { $y == 3 } { set z done } } + fileevent $s2 readable { incr y; if { $x == 3 } { set z done } } vwait z close $f1 close $s2 @@ -135,8 +135,8 @@ test event-11.6 {Tcl_VwaitCmd procedure: round robin scheduling, same source} { set y 0 set z 0 update - $f1 writable { incr x; if { $y == 3 } { set z done } } - $f2 writable { incr y; if { $x == 3 } { set z done } } + fileevent $f1 writable { incr x; if { $y == 3 } { set z done } } + fileevent $f2 writable { incr y; if { $x == 3 } { set z done } } vwait z close $f1 close $f2 |