[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: xfconf: Re-enable tests.
From: |
??? |
Subject: |
01/01: gnu: xfconf: Re-enable tests. |
Date: |
Mon, 02 Mar 2015 12:55:34 +0000 |
iyzsong pushed a commit to branch master
in repository guix.
commit b28367995180af9eadae0af1fac7a138cf8b2c52
Author: 宋文武 <address@hidden>
Date: Mon Mar 2 20:37:21 2015 +0800
gnu: xfconf: Re-enable tests.
* gnu/packages/xfce.scm (xfconf)[arguments]: Add #:phases.
---
gnu/packages/xfce.scm | 16 +++++++++++++---
1 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index 8ad2742..08d7949 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014 Sou Bunnbu <address@hidden>
+;;; Copyright © 2014, 2015 Sou Bunnbu <address@hidden>
;;; Copyright © 2014, 2015 Mark H Weaver <address@hidden>
;;;
;;; This file is part of GNU Guix.
@@ -99,8 +99,18 @@ Xfce Desktop Environment.")
(base32
"0mmi0g30aln3x98y5p507g17pipq0dj0bwypshan8cq5hkmfl44r"))))
(build-system gnu-build-system)
- (arguments '(#:tests? #f ; XXX test suite requires working DBus
- #:parallel-tests? #f)) ; parallel tests failed
+ (arguments
+ '(#:phases
+ ;; Run check after install phase to test dbus activation.
+ (alist-cons-after
+ 'install 'check
+ (lambda _
+ (setenv "HOME" (getenv "TMPDIR")) ; xfconfd requires a writable HOME
+ ;; Run test-suite under a dbus session.
+ (setenv "XDG_DATA_DIRS" ; for finding org.xfce.Xfconf.service
+ (string-append %output "/share"))
+ (zero? (system* "dbus-launch" "make" "check")))
+ (alist-delete 'check %standard-phases))))
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)))