01/01: gnu: grub: Disable tests on ARM platforms.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository guix.

commit 56f0feb6781e3680541d7adc21d6b3b4746a33ca
Author: Mathieu Othacehe <address@hidden>
Date:   Tue Nov 28 10:25:00 2017 +0100

    gnu: grub: Disable tests on ARM platforms.
    
    * gnu/packages/bootloaders (grub): Disable tests on ARM platforms.
    Half of the tests are failing on ARM.
---
 gnu/packages/bootloaders.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 20f38b2..dea9366 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -75,7 +75,7 @@
                "03vvdfhdmf16121v7xs8is2krwnv15wpkhkf16a4yf8nsfc3f2w1"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (modify-phases %standard-phases
+     `(#:phases (modify-phases %standard-phases
                   (add-after 'unpack 'patch-stuff
                    (lambda* (#:key inputs #:allow-other-keys)
                      (substitute* "grub-core/Makefile.in"
@@ -102,7 +102,10 @@
                       (substitute* "Makefile.in"
                         (("grub_cmd_date grub_cmd_set_date grub_cmd_sleep")
                           "grub_cmd_date grub_cmd_sleep"))
-                      #t)))))
+                      #t)))
+       ;; Disable tests on ARM platforms.
+       #:tests? ,(not (string-prefix? "arm" (or (%current-target-system)
+                                                (%current-system))))))
     (inputs
      `(("gettext" ,gettext-minimal)