| 1 | (use posix test)
|
|---|
| 2 |
|
|---|
| 3 | (define (set-file-mask! mask)
|
|---|
| 4 | (let ((test-file "foomask"))
|
|---|
| 5 | (delete-file* test-file)
|
|---|
| 6 | (set! (file-creation-mode) mask)
|
|---|
| 7 | (with-output-to-file test-file (cut print ""))
|
|---|
| 8 | (number->string (file-permissions test-file) 8)))
|
|---|
| 9 |
|
|---|
| 10 | (test-begin "umask")
|
|---|
| 11 | (test "100660" (set-file-mask! perm/irwxo))
|
|---|
| 12 | (test "100600" (set-file-mask! (bitwise-ior perm/irwxo perm/irwxg)))
|
|---|
| 13 | (test "100000" (set-file-mask! (bitwise-ior perm/irwxo perm/irwxg perm/irwxu)))
|
|---|
| 14 |
|
|---|
| 15 | (test "100664" (set-file-mask! perm/iwoth))
|
|---|
| 16 | (test "100644" (set-file-mask! (bitwise-ior perm/iwoth perm/iwgrp)))
|
|---|
| 17 | (test "100444" (set-file-mask! (bitwise-ior perm/iwoth perm/iwgrp perm/iwusr)))
|
|---|
| 18 | (test-end "umask")
|
|---|
