mirror of
https://codeberg.org/guix/guix.git
synced 2025-10-02 02:15:12 +00:00
gnu: kdeclarative: Use G-expressions.
* gnu/packages/kde-frameworks.scm (kdeclarative)[arguments]: Rewrite as G-expressions. Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
parent
78785cbd3f
commit
013a7a8cf3
1 changed files with 18 additions and 16 deletions
|
@ -2338,8 +2338,8 @@ their settings.")
|
||||||
qtdeclarative-5
|
qtdeclarative-5
|
||||||
solid))
|
solid))
|
||||||
(arguments
|
(arguments
|
||||||
`(#:phases
|
(list #:phases
|
||||||
(modify-phases %standard-phases
|
#~(modify-phases %standard-phases
|
||||||
(add-before 'check 'start-xorg-server
|
(add-before 'check 'start-xorg-server
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
;; The test suite requires a running X server, setting
|
;; The test suite requires a running X server, setting
|
||||||
|
@ -2349,8 +2349,10 @@ their settings.")
|
||||||
(replace 'check
|
(replace 'check
|
||||||
(lambda* (#:key tests? #:allow-other-keys)
|
(lambda* (#:key tests? #:allow-other-keys)
|
||||||
(when tests?
|
(when tests?
|
||||||
(setenv "HOME" (getcwd))
|
(setenv "HOME"
|
||||||
(setenv "XDG_RUNTIME_DIR" (getcwd))
|
(getcwd))
|
||||||
|
(setenv "XDG_RUNTIME_DIR"
|
||||||
|
(getcwd))
|
||||||
(setenv "QT_QPA_PLATFORM" "offscreen")
|
(setenv "QT_QPA_PLATFORM" "offscreen")
|
||||||
(setenv "DBUS_FATAL_WARNINGS" "0")
|
(setenv "DBUS_FATAL_WARNINGS" "0")
|
||||||
(invoke "dbus-launch" "ctest")))))))
|
(invoke "dbus-launch" "ctest")))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue