diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-13 07:56:43 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-13 07:56:43 (GMT) |
commit | 63956c8deec1ead82e128fb072795a30425b04f6 (patch) | |
tree | 7a74d718c928bb6e8d3a2c837bfc8a097cd8bb99 | |
parent | 0d8495931b3744280c05530401801c86da4c0a3a (diff) | |
download | tcl-63956c8deec1ead82e128fb072795a30425b04f6.zip tcl-63956c8deec1ead82e128fb072795a30425b04f6.tar.gz tcl-63956c8deec1ead82e128fb072795a30425b04f6.tar.bz2 |
revert test-case change from [Bug 2935503]
-rw-r--r-- | ChangeLog | 2 | ||||
-rw-r--r-- | tests/io.test | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -1,7 +1,7 @@ 2011-10-11 Jan Nijtmans <nijtmans@users.sf.net> * win/tclWinFile.c: [Bug 2935503] Incorrect mode field - * tests/io.test: returned by file stat command + returned by file stat command 2011-10-07 Jan Nijtmans <nijtmans@users.sf.net> diff --git a/tests/io.test b/tests/io.test index 6029f18..ed2619a 100644 --- a/tests/io.test +++ b/tests/io.test @@ -5228,9 +5228,9 @@ test io-40.1 {POSIX open access modes: RDWR} { close $f set x } {zzy abzzy} -test io-40.2 {POSIX open access modes: CREAT} { +test io-40.2 {POSIX open access modes: CREAT} {unixOnly} { file delete $path(test3) - set f [open $path(test3) {WRONLY CREAT} 0666] + set f [open $path(test3) {WRONLY CREAT} 0600] file stat $path(test3) stats set x [format "0%o" [expr $stats(mode)&0777]] puts $f "line 1" @@ -5239,7 +5239,7 @@ test io-40.2 {POSIX open access modes: CREAT} { lappend x [gets $f] close $f set x -} {0666 {line 1}} +} {0600 {line 1}} # some tests can only be run is umask is 2 # if "umask" cannot be run, the tests will be skipped. |