mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: glib: Return #t from all phases.
* gnu/packages/glib.scm (glib)[arguments]: In the 'check' phase, use 'for-each' instead to avoid assuming that 'disable' will return a true value. Return #t from the 'pre-build' and 'check' phases.
This commit is contained in:
parent
eed6985fc6
commit
81f6bf2d50
1 changed files with 4 additions and 2 deletions
|
@ -199,7 +199,8 @@ (define glib
|
|||
"glib/tests/utils.c"
|
||||
"tests/spawn-test.c")
|
||||
(("/bin/sh")
|
||||
(string-append (assoc-ref inputs "bash") "/bin/sh")))))
|
||||
(string-append (assoc-ref inputs "bash") "/bin/sh")))
|
||||
#t))
|
||||
(add-before 'check 'disable-failing-tests
|
||||
(lambda _
|
||||
(let ((disable
|
||||
|
@ -263,7 +264,8 @@ (define pattern+procs
|
|||
("gio/tests/gdbus-unix-addresses.c"
|
||||
(;; Requires /etc/machine-id.
|
||||
"/gdbus/x11-autolaunch")))))
|
||||
(and-map (lambda (x) (apply disable x)) failing-tests)))))
|
||||
(for-each (lambda (x) (apply disable x)) failing-tests)
|
||||
#t))))
|
||||
|
||||
;; Note: `--docdir' and `--htmldir' are not honored, so work around it.
|
||||
#:configure-flags (list (string-append "--with-html-dir="
|
||||
|
|
Loading…
Reference in a new issue