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 | 6f94ca3b770b0d95bdceaec71bddc726904daac4 (patch) | |
| tree | 6b65642a0ce9bc7e2d9a3655ad3c998d6d21ac3f /tests/io.test | |
| parent | dda62ca92483f614418a31cda3c62a416c40b199 (diff) | |
| download | tcl-6f94ca3b770b0d95bdceaec71bddc726904daac4.zip tcl-6f94ca3b770b0d95bdceaec71bddc726904daac4.tar.gz tcl-6f94ca3b770b0d95bdceaec71bddc726904daac4.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/io.test')
| -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 { |