gnu: Use argument for test exclusion.

* gnu/packages/fontutils.scm (fontforge, graphite2)
[arguments]<#:test-exclude>: Move regex from custom 'check phase.

Change-Id: I51d1480b9fd87b7e32b7d09e24b73c9d93729b8d
This commit is contained in:
Greg Hogan 2025-04-03 13:13:47 +00:00
parent 6d40d0b795
commit 1608cd16a4
No known key found for this signature in database
GPG key ID: EF6EB27413CFEEF3

View file

@ -1536,22 +1536,7 @@ translated keywords and acts.")
(list freetype)) (list freetype))
(arguments (arguments
(if (system-hurd?) (if (system-hurd?)
(list (list #:test-exclude "awamicmp3")
#:phases
#~(modify-phases %standard-phases
(replace 'check
;; cmake-build-system ignores #:make-flags for make check
(lambda* (#:key test-target tests? parallel-tests?
#:allow-other-keys)
(if tests?
(let ((jobs (if parallel-tests?
(number->string (parallel-job-count))
"1")))
(invoke "make"
(string-append
"ARGS=-j " jobs " --exclude-regex ^awamicmp3$")
test-target))
(format #t "test suite not run~%"))))))
'())) '()))
(synopsis "Reimplementation of the SIL Graphite text processing engine") (synopsis "Reimplementation of the SIL Graphite text processing engine")
(description (description
@ -1731,6 +1716,10 @@ definitions.")
python python
zlib)) zlib))
(arguments (arguments
(append
(if (system-hurd?)
(list #:test-exclude "test0001_py|test0001_pyhook")
'())
(list (list
#:configure-flags #~`(;; TODO: Provide GTK+ for the Wayland-friendly GDK #:configure-flags #~`(;; TODO: Provide GTK+ for the Wayland-friendly GDK
;; backend, instead of the legacy X11 backend. ;; backend, instead of the legacy X11 backend.
@ -1759,25 +1748,6 @@ definitions.")
(search-patch "fontforge-hurd.patch")))) (search-patch "fontforge-hurd.patch"))))
(invoke "patch" "--force" "-p1" "-i" patch-file))))) (invoke "patch" "--force" "-p1" "-i" patch-file)))))
#~()) #~())
#$@(if (system-hurd?)
#~((replace 'check
;; cmake-build-system ignores #:make-flags for make check
(lambda* (#:key test-target tests? parallel-tests?
#:allow-other-keys)
(let ((skip '("test0001_py" "test0001_pyhook")))
(if tests?
(let ((jobs
(if parallel-tests?
(number->string (parallel-job-count))
"1")))
(invoke "make"
(string-append "ARGS=-j " jobs
" --exclude-regex ^"
(string-join skip "\\|")
"$")
test-target))
(format #t "test suite not run~%"))))))
#~())
(add-after 'install 'set-library-path (add-after 'install 'set-library-path
(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"))
@ -1793,7 +1763,7 @@ definitions.")
"libxml2" "zlib" "libspiro" "freetype" "libxml2" "zlib" "libspiro" "freetype"
"pango" "cairo" "fontconfig-minimal"))) "pango" "cairo" "fontconfig-minimal")))
;; Checks for potrace program at runtime ;; Checks for potrace program at runtime
`("PATH" ":" prefix (,potrace))))))))) `("PATH" ":" prefix (,potrace))))))))))
(synopsis "Outline font editor") (synopsis "Outline font editor")
(description (description
"FontForge allows you to create and modify postscript, truetype and "FontForge allows you to create and modify postscript, truetype and