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

gnu: pencil2d: Fix tests.

Browse source 
* gnu/packages/animation.scm (pencil2d)[arguments]: Use gexps.
Add fix-tests phase.
This commit is contained in:
宋文武 2023-08-27 10:54:41 +08:00
parent d6966b8a5b
commit 5078e98cf3
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 18 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/animation.scm
View file

@ -442,8 +442,14 @@ (define-public pencil2d
(inputs (inputs
(list qtbase-5 qtxmlpatterns qtmultimedia-5 qtsvg-5)) (list qtbase-5 qtxmlpatterns qtmultimedia-5 qtsvg-5))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
;; Its bundled catch2-2.5.0 fails to build with glibc-2.35.
(copy-file #$(file-append catch2 "/include/catch2/catch.hpp")
"tests/src/catch.hpp")))
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -453,8 +459,7 @@ (define-public pencil2d
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(plugin-path (getenv "QT_PLUGIN_PATH"))) (plugin-path (getenv "QT_PLUGIN_PATH")))
(wrap-program (string-append out "/bin/pencil2d") (wrap-program (string-append out "/bin/pencil2d")
`("QT_PLUGIN_PATH" ":" prefix (,plugin-path))) `("QT_PLUGIN_PATH" ":" prefix (,plugin-path)))))))))
#t))))))
(home-page "https://www.pencil2d.org") (home-page "https://www.pencil2d.org")
(synopsis "Make 2D hand-drawn animations") (synopsis "Make 2D hand-drawn animations")
(description (description