02/02: gnu: gst-plugins-base: Skip more tests on some platforms.

[guix-commits]

efraim pushed a commit to branch staging
in repository guix.

commit cd782ad7e4aee8e2f5bd7fec03f14bdf3175fb80
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Sep 1 17:15:15 2022 +0300

    gnu: gst-plugins-base: Skip more tests on some platforms.
    
    * gnu/packages/gstreamer.scm (gst-plugins-base)[arguments]: Extend the
    custom 'disable-problematic-tests phase to selectively remove some tests
    on certain architectures.
---
 gnu/packages/gstreamer.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gstreamer.scm b/gnu/packages/gstreamer.scm
index d3c177ddbf..dda27bee82 100644
--- a/gnu/packages/gstreamer.scm
+++ b/gnu/packages/gstreamer.scm
@@ -577,7 +577,24 @@ This package provides the core library and elements.")
                 ;; This test causes nondeterministic failures (see:
                 ;; 
https://gitlab.freedesktop.org/gstreamer/gst-plugins-base/-/issues/950).
                 ((".*'elements/appsrc.c'.*")
-                 ""))))
+                 ""))
+              ;; Some other tests fail on other architectures.
+              #$@(cond
+                   ((target-x86-32?)
+                    #~((substitute* "tests/check/meson.build"
+                         ((".*'libs/libsabi\\.c'.*") ""))))
+                   ((target-riscv64?)
+                    #~((substitute* "tests/check/meson.build"
+                         ((".*'libs/gstglcolorconvert\\.c'.*") "")
+                         ((".*'libs/gstglcontext\\.c'.*") "")
+                         ((".*'libs/gstglmemory\\.c'.*") "")
+                         ((".*'libs/gstglupload\\.c'.*") "")
+                         ((".*'elements/glimagesink\\.c'.*") "")
+                         ((".*'pipelines/gl-launch-lines\\.c'.*") "")
+                         ((".*'elements/glstereo\\.c'.*") "")
+                         ((".*'elements/glmixer\\.c'.*") ""))))
+                   (else
+                     #~()))))
           (add-before 'configure 'patch
             (lambda _
               (substitute* "tests/check/libs/pbutils.c"