diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-04-17 12:05:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-04-17 12:05:02 (GMT) |
| commit | 9a1eaac6924a3dd04d0d2be0aaf724e0426077d1 (patch) | |
| tree | df7fb72bdfab541c3e92ae2b1727d7efcf513680 | |
| parent | 1bfdefdad35caeaff3dcdfea5f35c70373332bb0 (diff) | |
| parent | 5daf5b67489f659bb4121e61ede89ec9f4b828fb (diff) | |
| download | tcl-9a1eaac6924a3dd04d0d2be0aaf724e0426077d1.zip tcl-9a1eaac6924a3dd04d0d2be0aaf724e0426077d1.tar.gz tcl-9a1eaac6924a3dd04d0d2be0aaf724e0426077d1.tar.bz2 | |
Repair revised tests that failed.
| -rw-r--r-- | tests/chanio.test | 4 | ||||
| -rw-r--r-- | tests/io.test | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/chanio.test b/tests/chanio.test index 2d900d0..8c74566 100644 --- a/tests/chanio.test +++ b/tests/chanio.test @@ -5345,7 +5345,7 @@ test chan-io-40.2 {POSIX open access modes: CREAT} -setup { lappend x [chan gets $f] } -cleanup { chan close $f -} -result {0o600 {line 1}} +} -result {0600 {line 1}} test chan-io-40.3 {POSIX open access modes: CREAT} -setup { file delete $path(test3) } -constraints {unix umask} -body { @@ -5353,7 +5353,7 @@ test chan-io-40.3 {POSIX open access modes: CREAT} -setup { chan close [open $path(test3) {WRONLY CREAT}] file stat $path(test3) stats format "%#o" [expr $stats(mode)&0o777] -} -result [format %#5o [expr {0o666 & ~ $umaskValue}]] +} -result [format %#4o [expr {0o666 & ~ $umaskValue}]] test chan-io-40.4 {POSIX open access modes: CREAT} -setup { file delete $path(test3) } -body { diff --git a/tests/io.test b/tests/io.test index aaceec5..3fc370d 100644 --- a/tests/io.test +++ b/tests/io.test @@ -5653,7 +5653,7 @@ test io-40.3 {POSIX open access modes: CREAT} {unix umask} { close $f file stat $path(test3) stats format "%#o" [expr $stats(mode)&0o777] -} [format %#5o [expr {0o666 & ~ $umaskValue}]] +} [format %#4o [expr {0o666 & ~ $umaskValue}]] test io-40.4 {POSIX open access modes: CREAT} { file delete $path(test3) set f [open $path(test3) w] |