Diff
Not logged in

Differences From Artifact [23cd973814]:

To Artifact [52c46d5774]:


5648
5649
5650
5651
5652
5653
5654
5655
5656


5657
5658
5659
5660
5661
5662
5663
5648
5649
5650
5651
5652
5653
5654


5655
5656
5657
5658
5659
5660
5661
5662
5663







-
-
+
+







} {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)
    set f [open $path(test3) {WRONLY CREAT}]
    close $f
    file stat $path(test3) stats
    format "0%o" [expr $stats(mode)&0o777]
} [format %04o [expr {0o666 & ~ $umaskValue}]]
    format "%#o" [expr $stats(mode)&0o777]
} [format %#5o [expr {0o666 & ~ $umaskValue}]]
test io-40.4 {POSIX open access modes: CREAT} {
    file delete $path(test3)
    set f [open $path(test3) w]
    fconfigure $f -eofchar {}
    puts $f xyzzy
    close $f
    set f [open $path(test3) {WRONLY CREAT}]