From 35ad5765def300afc351964960076deea6ecabbd Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Fri, 1 Feb 2002 21:19:02 +0000 Subject: * tests/io.test: io-39.22 split into two tests, one platform dependent, the other not. -eofchar is not empty on the windows platform. --- ChangeLog | 6 ++++++ tests/io.test | 22 ++++++++++++++++++---- 2 files changed, 24 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index b3e2bd3..13ac271 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2002-02-01 Andreas Kupries + + * 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 * 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] -- cgit v0.12