futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "gnu: virt-manager: Update to 3.2.0."

Browse Source 
This reverts commit 5eb05ede0bf0cfe3080a24eea783f0fbc2ed4015.
This commit is contained in:
Pierre Langlois 2021-04-01 22:50:43 +01:00
parent b1ed32dae0
commit d01837ca0d
No known key found for this signature in database
GPG Key ID: A8FC9E447F4F7D54
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/virtualization.scm
View File

@ -1230,7 +1230,7 @@ virtualization library.")
(define-public virt-manager (define-public virt-manager
(package (package
(name "virt-manager") (name "virt-manager")
(version "3.2.0") (version "2.2.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://virt-manager.org/download/sources" (uri (string-append "https://virt-manager.org/download/sources"
@ -1238,10 +1238,11 @@ virtualization library.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"11kvpzcmyir91qz0dsnk7748jbb4wr8mrc744w117qc91pcy6vrb")))) "06ws0agxlip6p6n3n43knsnjyd91gqhh2dadgc33wl9lx1k8vn6g"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:use-setuptools? #f ; uses custom distutils 'install' command `(#:use-setuptools? #f ; uses custom distutils 'install' command
#:test-target "test_ui"
#:tests? #f ; TODO The tests currently fail #:tests? #f ; TODO The tests currently fail
; RuntimeError: Loop condition wasn't ; RuntimeError: Loop condition wasn't
; met ; met
@ -1259,6 +1260,12 @@ virtualization library.")
(substitute* "virtinst/buildconfig.py" (substitute* "virtinst/buildconfig.py"
(("/usr") (assoc-ref outputs "out"))) (("/usr") (assoc-ref outputs "out")))
#t)) #t))
(add-after 'unpack 'fix-qemu-img-reference
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "virtconv/formats.py"
(("/usr(/bin/qemu-img)" _ suffix)
(string-append (assoc-ref inputs "qemu") suffix)))
#t))
(add-after 'unpack 'fix-default-uri (add-after 'unpack 'fix-default-uri
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Xen is not available for now - so only patch qemu. ;; Xen is not available for now - so only patch qemu.
@ -1289,12 +1296,11 @@ virtualization library.")
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?
(setenv "HOME" "/tmp") (setenv "HOME" "/tmp")
(setenv "XDG_CACHE_HOME" "/tmp")
(system "Xvfb :1 &") (system "Xvfb :1 &")
(setenv "DISPLAY" ":1") (setenv "DISPLAY" ":1")
;; Dogtail requires that Assistive Technology support be enabled ;; Dogtail requires that Assistive Technology support be enabled
(setenv "GTK_MODULES" "gail:atk-bridge") (setenv "GTK_MODULES" "gail:atk-bridge")
(invoke "dbus-run-session" "--" "pytest" "--uitests")) (invoke "dbus-run-session" "--" "python" "setup.py" "test_ui"))
#t)) #t))
(add-after 'install 'glib-or-gtk-compile-schemas (add-after 'install 'glib-or-gtk-compile-schemas
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
@ -1324,9 +1330,7 @@ virtualization library.")
("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
("perl" ,perl) ; pod2man ("perl" ,perl) ; pod2man
("intltool" ,intltool) ("intltool" ,intltool)
("rst2man" ,python-docutils)
;; The following are required for running the tests ;; The following are required for running the tests
;; ("python-pytest" ,python-pytest)
;; ("python-dogtail" ,python-dogtail) ;; ("python-dogtail" ,python-dogtail)
;; ("xvfb" ,xorg-server-for-tests) ;; ("xvfb" ,xorg-server-for-tests)
;; ("dbus" ,dbus) ;; ("dbus" ,dbus)