diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-13 08:02:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-13 08:02:53 (GMT) |
| commit | 6fc8497420c43eff04a6d4b6523003b0550f0fbf (patch) | |
| tree | a58f29e4cff964aee17f769085771677e64ad748 | |
| parent | 8565cd4a3dd278a2ff60fd5e0573d746d209466e (diff) | |
| parent | c4513649f89f91cfbfcd3ec25a7f0daebe2a341b (diff) | |
| download | tcl-6fc8497420c43eff04a6d4b6523003b0550f0fbf.zip tcl-6fc8497420c43eff04a6d4b6523003b0550f0fbf.tar.gz tcl-6fc8497420c43eff04a6d4b6523003b0550f0fbf.tar.bz2 | |
revert test-case change for [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-09 Donal K. Fellows <dkf@users.sf.net> diff --git a/tests/io.test b/tests/io.test index 839a309..53b85fa 100644 --- a/tests/io.test +++ b/tests/io.test @@ -5203,9 +5203,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} {unix} { file delete $path(test3) - set f [open $path(test3) {WRONLY CREAT} 0o666] + set f [open $path(test3) {WRONLY CREAT} 0o600] file stat $path(test3) stats set x [format "0o%o" [expr $stats(mode)&0o777]] puts $f "line 1" @@ -5214,7 +5214,7 @@ test io-40.2 {POSIX open access modes: CREAT} { lappend x [gets $f] close $f set x -} {0o666 {line 1}} +} {0o600 {line 1}} test io-40.3 {POSIX open access modes: CREAT} {unix umask} { # This test only works if your umask is 2, like ouster's. file delete $path(test3) |