01/02: gnu: libaio: Fix test suite on riscv64-linux.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 73d93343baa43733bf1fecc23bcb1f36a78ef615
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri Aug 20 11:11:44 2021 +0300

    gnu: libaio: Fix test suite on riscv64-linux.
    
    * gnu/packages/linux.scm (libaio)[arguments]: Add phase to adjust test
    code to properly handle riscv.
---
 gnu/packages/linux.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 15aed1eefe..4d3ff8efd4 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -5263,7 +5263,19 @@ Linux Device Mapper multipathing driver:
            #:test-target "partcheck"    ; need root for a full 'check'
            #:phases
            #~(modify-phases %standard-phases
-               (delete 'configure)))) ; no configure script
+               (delete 'configure)    ; no configure script
+               ;; TODO: Make this phase unconditional on core-updates.
+               #$@(if (target-riscv64?)
+                    '((add-before 'check 'patch-for-riscv-support
+                        (lambda _
+                          ;; Taken from the upstream repo:
+                          ;; 
https://pagure.io/libaio/c/f322f467c3cd2ac4d8d08a19bd281eabb65433b1?branch=master
+                          (substitute* "harness/cases/16.t"
+                            (("(elif defined\\(__aarch64__\\))" all)
+                             (string-append all " || defined(__riscv)"))
+                            (("(endif /* __aarch64__)" all)
+                             (string-append all " || __riscv "))))))
+                    '()))))
     (home-page "https://pagure.io/libaio";)
     (synopsis "Linux-native asynchronous I/O access library")
     (description