diff options
author | Michael Gran <spk121@yahoo.com> | 2022-11-10 12:28:12 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2022-11-10 12:28:12 -0800 |
commit | bb646c42f7e9a3ad350ccb78168087dfda6228a7 (patch) | |
tree | 2101ad39990b9aa2f6d9e61ec9a9f506154db809 | |
parent | c6cdd92022cb8e3b5925a8b045af43c6410f2a53 (diff) | |
download | guile-bb646c42f7e9a3ad350ccb78168087dfda6228a7.tar.gz |
fixes for chmodat test
* test-suite/tests/filesys.test (chmodat): some chmodat tests don't test if it
exists. Mark unwritable file writable before deleting.
("port representing a regular file"): reorder to avoid unclosed
port on exception.
-rw-r--r-- | test-suite/tests/filesys.test | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test index 45e77c823..f99677de0 100644 --- a/test-suite/tests/filesys.test +++ b/test-suite/tests/filesys.test @@ -394,14 +394,21 @@ (stat:perms (stat (test-file)))) (pass-if-exception "not a port" exception:wrong-type-arg + (unless (defined? 'chmodat) + (throw 'unsupported)) (chmodat "bogus" (test-file) #o300)) (pass-if-exception "not a file port" exception:wrong-type-arg + (unless (defined? 'chmodat) + (throw 'unsupported)) (chmodat (open-input-string "") (test-file) #o300)) (pass-if-exception "closed port" exception:wrong-type-arg + (unless (defined? 'chmodat) + (throw 'unsupported)) (chmodat (call-with-port (open "." O_RDONLY) identity) (test-file) #o300)) + (chmod (test-file) #o600) (delete-file (test-file))) (with-test-prefix "chdir" @@ -474,10 +481,10 @@ (readlink '(stuff))))) (pass-if-equal "port representing a regular file" EINVAL + (unless (provided? 'readlink-port) + (throw 'unsupported)) (call-with-input-file (test-file) (lambda (port) - (unless (provided? 'readlink-port) - (throw 'unsupported)) (catch 'system-error (lambda () (readlink port) |