diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-04-08 23:41:18 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-04-08 23:41:18 (GMT) |
| commit | 7ddc20c67752f9b428d5c213d2a1964790b2516a (patch) | |
| tree | 6b65642a0ce9bc7e2d9a3655ad3c998d6d21ac3f /tests | |
| parent | 712e8111093149680388ac32ee90b21290554bb3 (diff) | |
| download | tcl-7ddc20c67752f9b428d5c213d2a1964790b2516a.zip tcl-7ddc20c67752f9b428d5c213d2a1964790b2516a.tar.gz tcl-7ddc20c67752f9b428d5c213d2a1964790b2516a.tar.bz2 | |
* tests/io.test (io-53.8): Fixed ordering of vwait and after
cancel. cancel has to be done after the vwait completes.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/io.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 9d4c45f..3caecc3 100644 --- a/tests/io.test +++ b/tests/io.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.80.2.5 2008/04/08 23:16:06 das Exp $ +# RCS: @(#) $Id: io.test,v 1.80.2.6 2008/04/08 23:41:20 andreas_kupries Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -6919,8 +6919,8 @@ test io-53.8 {CopyData: async callback and error handling, Bug 1932639} -setup { lappend ::RES {bgerror/FAIL timeout} set ::forever has-been-reached }] - catch {after cancel $token} vwait ::forever + catch {after cancel $token} # Report set ::RES } -cleanup { |