summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2002-02-01 21:19:02 (GMT)
committerandreas_kupries <akupries@shaw.ca>2002-02-01 21:19:02 (GMT)
commit35ad5765def300afc351964960076deea6ecabbd (patch)
treea0b1bd21bb01ab2e9a8352da0d2e6ba3fe8d5089 /tests
parent84db7009c71f1c0063714ab48be9c0747b2d6b8c (diff)
downloadtcl-35ad5765def300afc351964960076deea6ecabbd.zip
tcl-35ad5765def300afc351964960076deea6ecabbd.tar.gz
tcl-35ad5765def300afc351964960076deea6ecabbd.tar.bz2
* tests/io.test: io-39.22 split into two tests, one platform
dependent, the other not. -eofchar is not empty on the windows platform.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test22
1 files changed, 18 insertions, 4 deletions
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]