amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: at-spi2-core: Honor the #:tests? flag.

Browse source 
* gnu/packages/gtk.scm (at-spi2-core)[arguments]: Adjust the 'check
phase to honor the #:tests? flag.  Skip the tests when building for
powerpc-linux.

Change-Id: Ia1fc275ebca5d69b851b566ae7afb47fdad8f066
This commit is contained in:
Efraim Flashner 2024-04-24 21:31:58 +03:00 • committed by Ludovic Courtès
parent 3d4efef46d
commit 0bae9e17c6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 26 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

55
gnu/packages/gtk.scm
View file

@ -831,38 +831,35 @@ ever use this library.")
(arguments (arguments
(list (list
#:glib-or-gtk? #t ;to wrap binaries and/or compile schemas #:glib-or-gtk? #t ;to wrap binaries and/or compile schemas
#:tests? (not (or (target-ppc32?)
(%current-target-system)))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'check) (delete 'check)
;; The CI test suite fails completely on powerpc-linux. (add-after 'install 'check
;; The name org.gnome.SessionManager was not provided by any .service (lambda* (#:key tests? #:allow-other-keys)
;; TODO: Wrap 'check phase with 'tests?'. (when tests?
#$@(if (not (or (target-ppc32?) ;; xfconfd requires a writable HOME
(%current-target-system))) (setenv "HOME" (getenv "TMPDIR"))
#~((add-after 'install 'check ;; dbus-run-session may crash if XDG_DATA_DIRS has too
(lambda _ ;; many entries, maybe related to
;; xfconfd requires a writable HOME ;; https://gitlab.freedesktop.org/dbus/dbus/-/issues/481.
(setenv "HOME" (getenv "TMPDIR")) (setenv "XDG_DATA_DIRS"
;; dbus-run-session may crash if XDG_DATA_DIRS has too (string-append
;; many entries, maybe related to #$output "/share:"
;; https://gitlab.freedesktop.org/dbus/dbus/-/issues/481. #$(this-package-native-input
(setenv "XDG_DATA_DIRS" "gsettings-desktop-schemas")
(string-append "/share"))
#$output "/share:" ;; Don't fail on missing '/etc/machine-id'.
#$(this-package-native-input (setenv "DBUS_FATAL_WARNINGS" "0")
"gsettings-desktop-schemas") (with-directory-excursion (string-append "../at-spi2-core-"
"/share")) #$version "")
;; Don't fail on missing '/etc/machine-id'. (invoke "dbus-run-session" "--" "ci/run-registryd-tests.sh")
(setenv "DBUS_FATAL_WARNINGS" "0") (substitute* "ci/run-tests.sh"
(with-directory-excursion (string-append "../at-spi2-core-" (("ps auxwww") "") ;avoid a dependency on procps
#$version "") (("meson test -C _build")
(invoke "dbus-run-session" "--" "ci/run-registryd-tests.sh") "meson test -C ../build")) ;adjust build directory
(substitute* "ci/run-tests.sh" (invoke "dbus-run-session" "--" "ci/run-tests.sh"))))))))
(("ps auxwww") "") ;avoid a dependency on procps
(("meson test -C _build")
"meson test -C ../build")) ;adjust build directory
(invoke "dbus-run-session" "--" "ci/run-tests.sh")))))
#~()))))
(inputs (inputs
(list bash-minimal libxml2)) (list bash-minimal libxml2))
(propagated-inputs (propagated-inputs