01/06: tests: libvirt: Catch issues with incorrect /var and /etc in package.

[guix-commits]

planglois pushed a commit to branch master
in repository guix.

commit 81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408
Author: Pierre Langlois <pierre.langlois@gmx.com>
AuthorDate: Fri Apr 2 11:11:10 2021 +0100

    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.
---
 gnu/tests/virtualization.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index e95787e..9f9d3a5 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)))))