01/01: gnu: grub :Disable tests on aarch64.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 63087721bb54a14dc04ec424474386ae98f7771b
Author: Efraim Flashner <address@hidden>
Date:   Wed Nov 29 20:34:15 2017 +0200

    gnu: grub :Disable tests on aarch64.
    
    * gnu/packages/bootloaders.scm (grub)[arguments]: Add aarch64 to the
    architectures where the test suite is not run.
---
 gnu/packages/bootloaders.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index dea9366..273aeb3 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -50,7 +50,9 @@
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
-  #:use-module (guix utils))
+  #:use-module (guix utils)
+  #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26))
 
 (define unifont
   ;; GNU Unifont, <http://gnu.org/s/unifont>.
@@ -103,9 +105,10 @@
                         (("grub_cmd_date grub_cmd_set_date grub_cmd_sleep")
                           "grub_cmd_date grub_cmd_sleep"))
                       #t)))
-       ;; Disable tests on ARM platforms.
-       #:tests? ,(not (string-prefix? "arm" (or (%current-target-system)
-                                                (%current-system))))))
+       ;; Disable tests on ARM and AARCH64 platforms.
+       #:tests? ,(not (any (cute string-prefix? <> (or (%current-target-system)
+                                                       (%current-system)))
+                           '("arm" "aarch64")))))
     (inputs
      `(("gettext" ,gettext-minimal)