12/12: gnu: nss: Skip tests on powerpc-linux.

[guix-commits]

efraim pushed a commit to branch wip-ppc
in repository guix.

commit 876b96c98bd7a7e1121401f51ea7859655cee64b
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sat May 9 22:35:20 2020 +0300

    gnu: nss: Skip tests on powerpc-linux.
    
    * gnu/packages/nss.scm (nss)[arguments]: Skip tests on powerpc-linux.
    Adjust custom 'check phase accordingly.
---
 gnu/packages/nss.scm | 31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/nss.scm b/gnu/packages/nss.scm
index b19ad7e..1d7bb58 100644
--- a/gnu/packages/nss.scm
+++ b/gnu/packages/nss.scm
@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès 
<ludo@gnu.org>
 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Mark H Weaver 
<mhw@netris.org>
-;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner 
<efraim@flashner.co.il>
 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
 ;;;
@@ -98,6 +98,10 @@ in the Mozilla clients.")
     (outputs '("out" "bin"))
     (arguments
      `(#:parallel-build? #f ; not supported
+       ;; Tests on powerpc-linux take forever and fail sporatically.
+       #:tests? ,(if (string=? "powerpc-linux" (or (%current-system)
+                                                   (%current-target-system)))
+                   '#f '#t)
        #:make-flags
        (let* ((out (assoc-ref %outputs "out"))
               (nspr (string-append (assoc-ref %build-inputs "nspr")))
@@ -127,18 +131,21 @@ in the Mozilla clients.")
                   '()))
              #t))
          (replace 'check
-           (lambda _
-             ;; Use 127.0.0.1 instead of $HOST.$DOMSUF as HOSTADDR for testing.
-             ;; The later requires a working DNS or /etc/hosts.
-             (setenv "DOMSUF" "localdomain")
-             (setenv "USE_IP" "TRUE")
-             (setenv "IP_ADDRESS" "127.0.0.1")
+           (lambda* (#:key tests? #:allow-other-keys)
+             (if tests?
+               (begin
+                 ;; Use 127.0.0.1 instead of $HOST.$DOMSUF as HOSTADDR for 
testing.
+                 ;; The later requires a working DNS or /etc/hosts.
+                 (setenv "DOMSUF" "localdomain")
+                 (setenv "USE_IP" "TRUE")
+                 (setenv "IP_ADDRESS" "127.0.0.1")
 
-             ;; The "PayPalEE.cert" certificate expires every six months,
-             ;; leading to test failures:
-             ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=609734>.  To
-             ;; work around that, set the time to roughly the release date.
-             (invoke "faketime" "2020-02-01" "./nss/tests/all.sh")))
+                 ;; The "PayPalEE.cert" certificate expires every six months,
+                 ;; leading to test failures:
+                 ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=609734>.  To
+                 ;; work around that, set the time to roughly the release date.
+                 (invoke "faketime" "2020-02-01" "./nss/tests/all.sh"))
+               #t)))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out (assoc-ref outputs "out"))