diff options
| author | Cees de Groot <cg@evrl.com> | 2021-03-30 17:11:48 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-03-31 15:36:48 +0200 |
| commit | c536f0b217714917988d2f412999d978c2f2f495 (patch) | |
| tree | e39ddc5d621b93c05af5313b1e1809bd190c47fa | |
| parent | 04ba7a196ab23539f1c7897ca5349fa635c5e88d (diff) | |
| download | guix-c536f0b217714917988d2f412999d978c2f2f495.tar.gz | |
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>
| -rw-r--r-- | tests/publish.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/publish.scm b/tests/publish.scm index 52101876b5..3e67c435ac 100644 --- a/tests/publish.scm +++ b/tests/publish.scm @@ -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)) |