06/13: gnu: python-capstone: Fix tests.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit aa861a3980ede130080ed492c62b097ee6f2caf7
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sat Jan 7 14:49:25 2023 +0100

    gnu: python-capstone: Fix tests.
    
    * gnu/packages/engineering.scm (python-capstone)[arguments]: Override check
    phase.  While here, remove label usage in chdir-and-fix-setup-py phase.
---
 gnu/packages/engineering.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index a92530d019..99ae61973d 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -1629,7 +1629,7 @@ bindings for Python, Java, OCaml and more.")
      `(#:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'chdir-and-fix-setup-py
-           (lambda _
+           (lambda* (#:key inputs #:allow-other-keys)
              (chdir "bindings/python")
              ;; Do not build the library again, because we already have it.
              (substitute* "setup.py" ((".*   build_libraries.*") ""))
@@ -1637,8 +1637,13 @@ bindings for Python, Java, OCaml and more.")
              ;; library.
              (substitute* "capstone/__init__.py"
                (("pkg_resources.resource_filename.*")
-                (string-append "'" (assoc-ref %build-inputs "capstone") 
"/lib',\n")))
-             #t)))))))
+                (string-append "'" (dirname (search-input-file
+                                             inputs "lib/libcapstone.so"))
+                               "',\n")))))
+         (replace 'check
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (invoke "make" "check")))))))))
 
 
 (define-public python-esptool-3.0