summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPierre Langlois <pierre.langlois@gmx.com>2021-04-02 11:11:10 +0100
committerPierre Langlois <pierre.langlois@gmx.com>2021-04-05 18:26:36 +0100
commit81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408 (patch)
treec5af702f6fc0118733fbfd3042e1446579075d1d
parent8b578c217f57ce009dbbc9df1036a06b6b822754 (diff)
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.
-rw-r--r--gnu/tests/virtualization.scm11
1 files changed, 11 insertions, 0 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index e95787ee19..9f9d3a5e26 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -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)))))