01/11: tests: Make 'publish' test umask-insensitive.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c536f0b217714917988d2f412999d978c2f2f495
Author: Cees de Groot <cg@evrl.com>
AuthorDate: Tue Mar 30 17:11:48 2021 +0200

    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>
---
 tests/publish.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/publish.scm b/tests/publish.scm
index 5210187..3e67c43 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))