summaryrefslogtreecommitdiff
path: root/gnu/tests
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2022-08-29 20:08:38 +0200
committerMarius Bakke <marius@gnu.org>2022-08-29 21:15:58 +0200
commit3e0abde17be944153be57ab5faeefc645266d39d (patch)
tree8d7a54e73fdd82a394c00a056a5a4682480b36e6 /gnu/tests
parentacbf2f9def5ce181fab09abec0978f1d2c1bcb33 (diff)
tests: libvirt: Ensure the default network can be started.
* gnu/tests/virtualization.scm (run-libvirt-test): Run commands to create and start the default network.
Diffstat (limited to 'gnu/tests')
-rw-r--r--gnu/tests/virtualization.scm20
1 files changed, 20 insertions, 0 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index 4bd56e5d9d..557f30db4f 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -106,6 +106,26 @@
"-c" "qemu:///system" "connect"))
marionette))
+ (test-eq "create default network"
+ 0
+ (marionette-eval
+ '(begin
+ (chdir "/tmp")
+ (system* #$(file-append libvirt "/bin/virsh")
+ "-c" "qemu:///system" "net-define"
+ #$(file-append libvirt
+ "/etc/libvirt/qemu/networks/default.xml")))
+ marionette))
+
+ (test-eq "start default network"
+ 0
+ (marionette-eval
+ '(begin
+ (chdir "/tmp")
+ (system* #$(file-append libvirt "/bin/virsh")
+ "-c" "qemu:///system" "net-start" "default"))
+ marionette))
+
(test-end))))
(gexp->derivation "libvirt-test" test))