diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | tests/io.test | 22 |
2 files changed, 24 insertions, 4 deletions
@@ -1,3 +1,9 @@ +2002-02-01 Andreas Kupries <andreas_kupries@users.sourceforge.net> + + * tests/io.test: io-39.22 split into two tests, one platform + dependent, the other not. -eofchar is not empty on the windows + platform. + 2002-02-01 Vince Darley <vincentdarley@users.sourceforge.net> * generic/tclTest.c: fix to picky windows compiler problem diff --git a/tests/io.test b/tests/io.test index 148bdd5..5cb1ccf 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.24 2002/01/25 23:06:58 mdejong Exp $ +# RCS: @(#) $Id: io.test,v 1.25 2002/02/01 21:19:03 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -5028,7 +5028,8 @@ test io-39.21 {Tcl_SetChannelOption, setting read mode independently} \ close $s2 set modes } {auto crlf} -test io-39.22 {Tcl_SetChannelOption, invariance} { + +test io-39.22 {Tcl_SetChannelOption, invariance} {unixOnly} { removeFile test1 set f1 [open test1 w+] set l "" @@ -5037,11 +5038,24 @@ test io-39.22 {Tcl_SetChannelOption, invariance} { lappend l [fconfigure $f1 -eofchar] fconfigure $f1 -eofchar D lappend l [fconfigure $f1 -eofchar] + close $f1 + set l +} {{{} {}} {O G} {D D}} + +test io-39.22a {Tcl_SetChannelOption, invariance} { + removeFile test1 + set f1 [open test1 w+] + set l [list] + fconfigure $f1 -eofchar {ON GO} + lappend l [fconfigure $f1 -eofchar] + fconfigure $f1 -eofchar D + lappend l [fconfigure $f1 -eofchar] lappend l [list [catch {fconfigure $f1 -eofchar {1 2 3}} msg] $msg] close $f1 set l -} {{{} {}} {O G} {D D}\ -{1 {bad value for -eofchar: should be a list of zero, one, or two elements}}} +} {{O G} {D D} {1 {bad value for -eofchar: should be a list of zero, one, or two elements}}} + + test io-39.23 {Tcl_GetChannelOption, server socket is not readable or writeable, it should still have valid -eofchar and -translation options } { set l [list] |