summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-04-10 16:53:37 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-26 09:02:06 +0100
commit20f524a44b1a9728045be1198ff795697557796c (patch)
treedf3ce74437ecb33cade803bebb13689d6276deac
parentc4b0131010c7bb864198318fc44b10b038c80b55 (diff)
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.
-rw-r--r--gnu/packages/virtualization.scm26
1 files changed, 22 insertions, 4 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 32113a0f2c..05ce96c974 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