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

[guix-commits]

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

commit 6e96d158d83a1ec03fb43dcd75a4a2e362948494
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 cb3b56f..4905c56 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -5074,7 +5074,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