From cdd2c995b7c03400a9702a6b354655b0584b727c Mon Sep 17 00:00:00 2001 From: Pierre Langlois Date: Wed, 22 Dec 2021 22:02:08 +0000 Subject: [PATCH] gremlin: Adjust test for aarch64. --- tests/gremlin.scm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/tests/gremlin.scm b/tests/gremlin.scm index 9e0017337a..c9b05ae21a 100644 --- a/tests/gremlin.scm +++ b/tests/gremlin.scm @@ -20,9 +20,11 @@ (define-module (test-gremlin) #:use-module (guix elf) #:use-module (guix tests) - #:use-module ((guix utils) #:select (call-with-temporary-directory)) + #:use-module ((guix utils) #:select (call-with-temporary-directory + target-aarch64?)) #:use-module (guix build utils) #:use-module (guix build gremlin) + #:use-module (gnu packages bootstrap) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) @@ -99,7 +101,12 @@ (define ground-truth (or (string-prefix? "linux-vdso.so" entry) (string-prefix? "linux-vdso32.so" entry) ;32-bit powerpc (string-prefix? "linux-vdso64.so" entry) ;64-bit powerpc - (string-prefix? "linux-gate.so" entry))) ;i386 + (string-prefix? "linux-gate.so" entry) ;i386 + ;; FIXME: Binaries on aarch64 do not always include the + ;; dynamic linker in their NEEDED section, it's unclear if that's OK, see + ;; ttps://bugs.gnu.org/52943. + (and (target-aarch64?) + (string-contains entry (glibc-dynamic-linker))))) (read-ldd-output pipe))) (and (zero? (close-pipe pipe)) -- 2.34.0