diff options
author | Pierre Langlois <pierre.langlois@gmx.com> | 2021-04-02 11:11:10 +0100 |
---|---|---|
committer | Pierre Langlois <pierre.langlois@gmx.com> | 2021-04-05 18:26:36 +0100 |
commit | 81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408 (patch) | |
tree | c5af702f6fc0118733fbfd3042e1446579075d1d | |
parent | 8b578c217f57ce009dbbc9df1036a06b6b822754 (diff) | |
download | guix-81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408.tar.gz guix-81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408.zip |
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.scm | 11 |
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))))) |