[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/05: gnu: virt-manager: Work towards enabling some tests.
From: |
guix-commits |
Subject: |
05/05: gnu: virt-manager: Work towards enabling some tests. |
Date: |
Tue, 26 May 2020 04:02:20 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository guix.
commit 20f524a44b1a9728045be1198ff795697557796c
Author: Christopher Baines <address@hidden>
AuthorDate: Fri Apr 10 16:53:37 2020 +0100
gnu: virt-manager: Work towards enabling some tests.
* gnu/packages/virtualization.scm (virt-manager)[arguments]: Set
#:test-target
to "test_ui", replace the 'check phase.
[native-inputs]: Add some inputs required for running tests.
---
gnu/packages/virtualization.scm | 26 ++++++++++++++++++++++----
1 file changed, 22 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 32113a0..05ce96c 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -655,9 +655,10 @@ virtualization library.")
(build-system python-build-system)
(arguments
`(#:use-setuptools? #f ; uses custom distutils 'install' command
- ;; Some of the tests seem to require network access to install virtual
- ;; machines.
- #:tests? #f
+ #:test-target "test_ui"
+ #:tests? #f ; TODO The tests currently fail
+ ; RuntimeError: Loop condition wasn't
+ ; met
#:imported-modules ((guix build glib-or-gtk-build-system)
,@%python-build-system-modules)
#:modules ((ice-9 match)
@@ -704,6 +705,16 @@ virtualization library.")
,(filter identity paths))))
bin-files))
#t))
+ (replace 'check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (setenv "HOME" "/tmp")
+ (system "Xvfb :1 &")
+ (setenv "DISPLAY" ":1")
+ ;; Dogtail requires that Assistive Technology support be enabled
+ (setenv "GTK_MODULES" "gail:atk-bridge")
+ (invoke "dbus-run-session" "--" "python" "setup.py" "test_ui"))
+ #t))
(add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases
'glib-or-gtk-compile-schemas))
(add-after 'install 'glib-or-gtk-wrap
@@ -732,7 +743,14 @@ virtualization library.")
("gobject-introspection" ,gobject-introspection)
("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
("perl" ,perl) ; pod2man
- ("intltool" ,intltool)))
+ ("intltool" ,intltool)
+ ;; The following are required for running the tests
+ ;; ("python-dogtail" ,python-dogtail)
+ ;; ("xvfb" ,xorg-server-for-tests)
+ ;; ("dbus" ,dbus)
+ ;; ("at-spi2-core" ,at-spi2-core)
+ ;; ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+ ))
(home-page "https://virt-manager.org/")
(synopsis "Manage virtual machines")
(description
- branch master updated (1dbd000 -> 20f524a), guix-commits, 2020/05/26
- 02/05: gnu: python-pyatspi: Propagate python-pygobject., guix-commits, 2020/05/26
- 03/05: gnu: python2-dogtail: Update to 0.9.11., guix-commits, 2020/05/26
- 04/05: gnu: python2-dogtail: Switch to Python 3, and add Python 2 variant., guix-commits, 2020/05/26
- 05/05: gnu: virt-manager: Work towards enabling some tests.,
guix-commits <=
- 01/05: gnu: Add python2-pyatspi., guix-commits, 2020/05/26