summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2004-06-23 22:02:41 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2004-06-23 22:02:41 (GMT)
commit9e0ba6fcb1e8e8209626c129525048b0f6d0f965 (patch)
tree8fd7540855228a3afaf2c9ef25e5b34fdbbd5ca2 /tests
parent550e9735df90e5d6d0447f5d72fb3ff8a0cc4a86 (diff)
downloadtcl-9e0ba6fcb1e8e8209626c129525048b0f6d0f965.zip
tcl-9e0ba6fcb1e8e8209626c129525048b0f6d0f965.tar.gz
tcl-9e0ba6fcb1e8e8209626c129525048b0f6d0f965.tar.bz2
* tests/io.test: Added -force to 18.1 and 18.2. This was failing
on WinXP.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/io.test b/tests/io.test
index 80aafa2..e7eda1f 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.56 2004/06/23 15:36:56 dkf Exp $
+# RCS: @(#) $Id: io.test,v 1.57 2004/06/23 22:02:41 patthoyts Exp $
if {[catch {package require tcltest 2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2 required."
@@ -1762,7 +1762,7 @@ test io-17.3 {GetChannelTable, DeleteChannelTable on std handles} {testchannel}
} {0 1 0}
test io-18.1 {Tcl_RegisterChannel, Tcl_UnregisterChannel} {testchannel} {
- file delete $path(test1)
+ file delete -force $path(test1)
set l ""
set f [open $path(test1) w]
lappend l [lindex [testchannel info $f] 15]
@@ -1776,7 +1776,7 @@ test io-18.1 {Tcl_RegisterChannel, Tcl_UnregisterChannel} {testchannel} {
[list 1 [format "can not find channel named \"%s\"" $f]]
} 0
test io-18.2 {Tcl_RegisterChannel, Tcl_UnregisterChannel} {testchannel} {
- file delete $path(test1)
+ file delete -force $path(test1)
set l ""
set f [open $path(test1) w]
lappend l [lindex [testchannel info $f] 15]