24/42: gnu: libaio: Fix test suite on riscv64-linux.

[guix-commits]

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

commit 280ee54ad1abaef38369f9da103a9cb47f319bcd
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 | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 31303af..383f317 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -5296,7 +5296,17 @@ Linux Device Mapper multipathing driver:
                           "gcc"))))
        #:test-target "partcheck" ; need root for a full 'check'
        #:phases
-       (modify-phases %standard-phases (delete 'configure)))) ; no configure 
script
+       (modify-phases %standard-phases
+         (delete 'configure)     ; no configure script
+         (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