guix_mirror_bot pushed a commit to branch gnome-team
in repository guix.
commit 9abfb9e67204ea44c5017e217e151a7da770ef51
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Tue Mar 31 01:09:11 2026 +0900
gnu: gnome-maps: Fix test suite.
* gnu/packages/geo.scm (gnome-maps) [#:phases] {check-setup}: Absorb into...
{check}: ... this new override. Add workaround for new
gobject-introspection/meson behavior.
[native-inputs]: Add libc-utf8-locales-for-target.
Change-Id: I020d015d490c57784851a1a78a33997c251b7dda
Signed-off-by: Noé Lopez <[email protected]>
---
gnu/packages/geo.scm | 26 +++++++++++++++++++-------
1 file changed, 19 insertions(+), 7 deletions(-)
diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm
index caadd101ca..32556ed0b7 100644
--- a/gnu/packages/geo.scm
+++ b/gnu/packages/geo.scm
@@ -443,22 +443,34 @@ topology functions.")
"update_desktop_database"))
(string-append option ": false"))
(else all))))))
- (add-before 'check 'check-setup
- (lambda* (#:key native-inputs inputs #:allow-other-keys)
- ;; for timeTest
- (setenv "TZDIR"
- (search-input-directory (or native-inputs inputs)
- "share/zoneinfo"))))
(add-after 'install 'wrap
(lambda _
(wrap-program (string-append #$output "/bin/gnome-maps")
`("GI_TYPELIB_PATH" ":" prefix
- (,(getenv "GI_TYPELIB_PATH")))))))))
+ (,(getenv "GI_TYPELIB_PATH"))))))
+ (delete 'check) ;moved after install
+ (add-after 'wrap 'check
+ (lambda* (#:key native-inputs inputs #:allow-other-keys #:rest
args)
+ ;; for timeTest
+ (setenv "TZDIR"
+ (search-input-directory (or native-inputs inputs)
+ "share/zoneinfo"))
+ ;; This workaround is made necessary by a custom patch to our
+ ;; gobject-introspection package that causes it to always use
+ ;; absolute paths for the shared objects referenced by the
+ ;; typelibs.
+ (let* ((src (string-append #$output
+ "/lib/gnome-maps/libgnome-maps.so.0"))
+ (dest (string-append #$output "/lib/libgnome-maps.so.0")))
+ (symlink src dest)
+ (apply (assoc-ref %standard-phases 'check) args)
+ (delete-file dest)))))))
(native-inputs
(list blueprint-compiler
gettext-minimal
`(,glib "bin")
gobject-introspection
+ (libc-utf8-locales-for-target)
libportal
pkg-config
tzdata-for-tests))
