diff options
author | mdejong <mdejong> | 2003-03-07 02:23:39 (GMT) |
---|---|---|
committer | mdejong <mdejong> | 2003-03-07 02:23:39 (GMT) |
commit | 15fafd797596ca59ac9d1bd9046db8228e6a3613 (patch) | |
tree | a44af1ec22f66d46eb37f84a5d097a0d30614d2b | |
parent | 19029a14f13f7e0c3447773e94916f0da036bb7a (diff) | |
download | tcl-15fafd797596ca59ac9d1bd9046db8228e6a3613.zip tcl-15fafd797596ca59ac9d1bd9046db8228e6a3613.tar.gz tcl-15fafd797596ca59ac9d1bd9046db8228e6a3613.tar.bz2 |
* tests/io.test: Doh! Undo accidental commenting
out of a couple of tests.
-rw-r--r-- | ChangeLog | 5 | ||||
-rw-r--r-- | tests/io.test | 7 |
2 files changed, 6 insertions, 6 deletions
@@ -1,5 +1,10 @@ 2003-03-06 Mo DeJong <mdejong@users.sourceforge.net> + * tests/io.test: Doh! Undo accidental commenting + out of a couple of tests. + +2003-03-06 Mo DeJong <mdejong@users.sourceforge.net> + * tests/io.test: Define a fileevent constraint and add it to the constraint list of any test that depends on the fileevent command. This is only useful to diff --git a/tests/io.test b/tests/io.test index 048530a..8f7452a 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.43 2003/03/07 02:15:44 mdejong Exp $ +# RCS: @(#) $Id: io.test,v 1.44 2003/03/07 02:23:40 mdejong Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -6558,8 +6558,6 @@ test io-52.8 {TclCopyChannel} {stdio openpipe} { list $s0 [file size $path(test1)] } {40 40} -if 0 { - # Empty files, to register them with the test facility set path(kyrillic.txt) [makeFile {} kyrillic.txt] set path(utf8-fcopy.txt) [makeFile {} utf8-fcopy.txt] @@ -6638,9 +6636,6 @@ test io-52.11 {TclCopyChannel & encodings} { file size $path(kyrillic.txt) } 3 -} ; # end koi-8 block - - test io-53.1 {CopyData} { removeFile test1 set f1 [open $thisScript] |