me/guix
Archived
1
0
Fork 0
Code Activity

gnu: tracker: Honor #:test-options keyword.

Browse source 
* gnu/packages/gnome.scm (tracker)[arguments]: Adjust custom 'check
phase to honor the #:test-options keyword.
This commit is contained in:
Efraim Flashner 2023-01-08 11:35:43 +02:00
parent ca8fcca456
commit 5ee51394d7
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/gnome.scm
View file

@ -11,7 +11,7 @@
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015-2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com> ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net> ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
@ -9637,12 +9637,12 @@ easy, safe, and automatic.")
(("/etc/asciidoc[^']+") (("/etc/asciidoc[^']+")
file))))) file)))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? test-options #:allow-other-keys)
(when tests? (when tests?
;; Some tests expect to write to $HOME. ;; Some tests expect to write to $HOME.
(setenv "HOME" "/tmp") (setenv "HOME" "/tmp")
(invoke "dbus-run-session" "--" "meson" "test" (apply invoke "dbus-run-session" "--" "meson" "test"
"--print-errorlogs"))))))) "--print-errorlogs" test-options)))))))
(native-inputs (native-inputs
(list gettext-minimal (list gettext-minimal
`(,glib "bin") `(,glib "bin")