mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: perl-gtk2: Fix tests.

Browse source 
This fixes <https://issues.guix.gnu.org/75471>.

* gnu/packages/gtk.scm (perl-gtk2)[inputs]: Add gdk-pixbuf.
[arguments]: Set GDK_PIXBUF_MODULE_FILE in 'fix-tests phase.

Change-Id: Ic5013d66d5b5eefa59e156f0d48dfc113237de14
This commit is contained in:
宋文武 2025-01-10 11:36:51 +08:00
parent 4c8ea86e8c
commit 3104c70fae
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/gtk.scm
View file

@ -2125,19 +2125,24 @@ (define-public perl-gtk2
(native-inputs
(list perl-extutils-depends perl-extutils-pkgconfig pkg-config))
(inputs
(list gtk+-2))
(list gtk+-2 gdk-pixbuf))
(propagated-inputs
(list perl-pango))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'remove-broken-test
;; See https://gitlab.gnome.org/GNOME/perl-gtk2/issues/3.
(lambda _
(substitute* "t/GdkPixbuf.t"
(("tests => 112") "tests => 111")
(("ok \\(defined \\$pixbuf, \"Don't crash on partial pixmap data\"\\);")
"# ok (defined $pixbuf, \"Don't crash on partial pixmap data\");")))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'fix-tests
(lambda _
;; XXX: by default it uses 'loaders.cache' from librsvg, which supports SVG only.
(setenv "GDK_PIXBUF_MODULE_FILE"
(string-append #$(this-package-input "gdk-pixbuf")
"/lib/gdk-pixbuf-2.0/2.10.0/loaders.cache"))
;; See https://gitlab.gnome.org/GNOME/perl-gtk2/issues/3.
(substitute* "t/GdkPixbuf.t"
(("tests => 112") "tests => 111")
(("ok \\(defined \\$pixbuf, \"Don't crash on partial pixmap data\"\\);")
"# ok (defined $pixbuf, \"Don't crash on partial pixmap data\");")))))))
(home-page "https://metacpan.org/release/Gtk2")
(synopsis "Perl interface to the 2.x series of the Gimp Toolkit library")
(description "Perl bindings to the 2.x series of the Gtk+ widget set.