tests: Make 'publish' test umask-insensitive.

Fixes <https://bugs.gnu.org/47239>.
Reported by Konrad Hinsen <konrad.hinsen@fastmail.net>.

* tests/publish.scm ("with cache"): Pass the result of 'stat:perms' to
'logand' to be umask-insensitive.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Cees de Groot 2021-03-30 17:11:48 +02:00 committed by Ludovic Courtès
parent 04ba7a196a
commit c536f0b217
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -452,8 +452,8 @@ References: ~%"
(wait-for-file cached)
;; Both the narinfo and nar should be world-readable.
(= #o644 (stat:perms (lstat cached)))
(= #o644 (stat:perms (lstat nar)))
(= #o444 (logand #o444 (stat:perms (lstat cached))))
(= #o444 (logand #o444 (stat:perms (lstat nar))))
(let* ((body (http-get-port url))
(compressed (http-get nar-url))