tests: libvirt: Catch issues with incorrect /var and /etc in package.
* gnu/tests/virtualization.scm (run-libvirt-test): Chdir to "/tmp" before running test. Add "connect" test.
This commit is contained in:
parent
8b578c217f
commit
81f65a3a2c
@ -2,6 +2,7 @@
|
||||
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
|
||||
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2021 Pierre Langlois <pierre.langlois@gmx.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@ -92,10 +93,20 @@
|
||||
0
|
||||
(marionette-eval
|
||||
`(begin
|
||||
(chdir "/tmp")
|
||||
(system* ,(string-append #$libvirt "/bin/virsh")
|
||||
"-c" "qemu:///system" "version"))
|
||||
marionette))
|
||||
|
||||
(test-eq "connect"
|
||||
0
|
||||
(marionette-eval
|
||||
`(begin
|
||||
(chdir "/tmp")
|
||||
(system* ,(string-append #$libvirt "/bin/virsh")
|
||||
"-c" "qemu:///system" "connect"))
|
||||
marionette))
|
||||
|
||||
(test-end)
|
||||
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user