guix_mirror_bot pushed a commit to branch gnome-team
in repository guix.

commit 6d4c17ed4e4290a74400b9d29ca26d1c781dacd3
Author: Maxim Cournoyer <ma...@guixotic.coop>
AuthorDate: Mon Jul 28 17:15:21 2025 +0900

    gnu: tracker: Fix test suite.
    
    The same strategy as for the tinysparql and upower packages is used.
    
    * gnu/packages/gnome.scm (tracker) [phases] {set-gi-typelib-path}: New 
phase.
    {check}: Reorder after phase new phase.
    
    Change-Id: Ib1fe6c93f19a4d29f2b9172cfc837111eb2a01f5
---
 gnu/packages/gnome.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 6d30cc43ca..bc55dd0c8e 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -9809,10 +9809,6 @@ easy, safe, and automatic.")
     (arguments
      (list
       #:glib-or-gtk? #t
-      #:test-options `(list ,@(if (or (target-riscv64?)
-                                      (target-aarch64?))
-                                  `("--timeout-multiplier" "10")
-                                  '("--timeout-multiplier" "2")))
       #:configure-flags
       ;; Otherwise, the RUNPATH will lack the final path component.
       #~(list (string-append "-Dc_link_args=-Wl,-rpath="
@@ -9860,13 +9856,18 @@ easy, safe, and automatic.")
                 (substitute* "docs/manpages/meson.build"
                   (("/etc/asciidoc[^']+")
                    file)))))
-          (replace 'check
+          (delete 'check)               ;moved after install
+          (add-after 'install 'set-gi-typelib-path
+            (lambda* (#:key outputs #:allow-other-keys)
+              (setenv "GI_TYPELIB_PATH"
+                      (search-input-directory outputs 
"lib/girepository-1.0"))))
+          (add-after 'set-gi-typelib-path 'check
             (lambda* (#:key tests? test-options #:allow-other-keys)
               (when tests?
                 ;; Some tests expect to write to $HOME.
                 (setenv "HOME" "/tmp")
                 (apply invoke "dbus-run-session" "--" "meson" "test"
-                       "--print-errorlogs" test-options)))))))
+                       "--print-errorlogs" "-t0" test-options)))))))
     (native-inputs
      (list gettext-minimal
            `(,glib "bin")

Reply via email to