From 5a491dc83a0616f7e8fae279e04ec524d32ee01e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sun, 9 Feb 2003 02:50:25 +0000
Subject: add catches to suppress unnecessary errors

---
 tests/io.test | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/io.test b/tests/io.test
index 465fc3b..0130dc0 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -12,7 +12,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.38 2003/02/04 17:06:52 vincentdarley Exp $
+# RCS: @(#) $Id: io.test,v 1.39 2003/02/09 02:50:25 hobbs Exp $
 
 if {[catch {package require tcltest 2}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2 required."
@@ -2625,8 +2625,8 @@ test io-29.31 {Tcl_WriteChars, background flush} {stdio} {
 } ok
 test io-29.32 {Tcl_WriteChars, background flush to slow reader} \
 	{stdio asyncPipeClose} {
-    removeFile pipe
-    removeFile output
+    catch {removeFile pipe}
+    catch {removeFile output}
     set f [open $path(pipe) w]
     puts $f [format {set f [open "%s" w]} $path(output)]
     puts $f {fconfigure $f -translation lf}
-- 
cgit v0.12