08/08: gnu: libcamera: Disable log_process test on aarch64.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit ff11cbc2e9589bcb98eb9cad1704b4b991d6f20e
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Sun Sep 17 20:23:06 2023 -0400

    gnu: libcamera: Disable log_process test on aarch64.
    
    * gnu/packages/networking.scm (libcamera) [arguments]
    [aarch64]: Add disable-problematic-tests phase.
---
 gnu/packages/networking.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 0a9472ee86..7a29bafb01 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -391,7 +391,7 @@ them in order to efficiently transfer a minimal amount of 
data.")
     (build-system meson-build-system)
     (outputs '("out" "doc" "gst" "tools"))
     (arguments
-     (list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
+     (list #:glib-or-gtk? #t         ; To wrap binaries and/or compile schemas
            #:configure-flags
            #~(list (string-append "-Dbindir="
                                   (assoc-ref %outputs "tools") "/bin")
@@ -400,6 +400,16 @@ them in order to efficiently transfer a minimal amount of 
data.")
                    "-Dpycamera=disabled")
            #:phases
            #~(modify-phases %standard-phases
+               #$@(if (target-aarch64?)
+                      ;; The 'log_process' test fails on aarch64-linux with a
+                      ;; SIGinvalid error (see:
+                      ;; https://bugs.libcamera.org/show_bug.cgi?id=173).
+                      #~((add-after 'unpack 'disable-problematic-tests
+                           (lambda _
+                             (substitute* "test/log/meson.build"
+                               ((".*'name': 'log_process'.*")
+                                "")))))
+                      #~())
                (add-after 'install 'move-doc-and-gst
                  (lambda* (#:key outputs #:allow-other-keys)
                    (let* ((out (assoc-ref outputs "out"))