From 7ddc20c67752f9b428d5c213d2a1964790b2516a Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 8 Apr 2008 23:41:18 +0000 Subject: * tests/io.test (io-53.8): Fixed ordering of vwait and after cancel. cancel has to be done after the vwait completes. --- ChangeLog | 5 +++++ tests/io.test | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 28d7a89..9d05541 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-04-08 Andreas Kupries + + * tests/io.test (io-53.8): Fixed ordering of vwait and after + cancel. cancel has to be done after the vwait completes. + 2008-04-09 Daniel Steffen * tests/chanio.test (chan-io-53.8,53.9,53.10): fix typo & quoting for 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 { -- cgit v0.12