gnu: python-seaborn: Simplify 'start-xserver' phase.
* gnu/packages/python-xyz.scm (python-seaborn)[arguments]: In 'start-xserver' phase, assume "Xvfb" is in $PATH.master
parent
c7cfe54018
commit
3125255cc5
|
@ -8812,13 +8812,11 @@ SVG, EPS, PNG and terminal output.")
|
||||||
`(#:phases
|
`(#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
(add-before 'check 'start-xserver
|
(add-before 'check 'start-xserver
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda _
|
||||||
(let ((xorg-server (assoc-ref inputs "xorg-server")))
|
|
||||||
;; There must be a running X server and make check doesn't
|
;; There must be a running X server and make check doesn't
|
||||||
;; start one. Therefore we must do it.
|
;; start one. Therefore we must do it.
|
||||||
(system (format #f "~a/bin/Xvfb :1 &" xorg-server))
|
(system "Xvfb :1 &")
|
||||||
(setenv "DISPLAY" ":1")
|
(setenv "DISPLAY" ":1")))
|
||||||
#t)))
|
|
||||||
(replace 'check
|
(replace 'check
|
||||||
(lambda* (#:key tests? #:allow-other-keys)
|
(lambda* (#:key tests? #:allow-other-keys)
|
||||||
(when tests?
|
(when tests?
|
||||||
|
|
Reference in New Issue