diff options
| author | Marius Bakke <[email protected]> | 2022-08-30 20:18:55 +0200 |
|---|---|---|
| committer | Marius Bakke <[email protected]> | 2022-08-30 20:18:55 +0200 |
| commit | 59c136ef611b7a00683af1d1bb406dbd1af1a2bd (patch) | |
| tree | 1ab434580130c7fd11b8ef5c22a91087b8401559 /gnu/tests/virtualization.scm | |
| parent | a6f42953626df657041fddfc36a207b06c38f944 (diff) | |
| parent | d62fc2cc837b095ff1a633ae2639513ea3253596 (diff) | |
Merge branch 'staging' into core-updates
Diffstat (limited to 'gnu/tests/virtualization.scm')
| -rw-r--r-- | gnu/tests/virtualization.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm index 4bd56e5d9d..60789fbb5b 100644 --- a/gnu/tests/virtualization.scm +++ b/gnu/tests/virtualization.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2020-2022 Ludovic Courtès <[email protected]> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <[email protected]> ;;; Copyright © 2021 Pierre Langlois <[email protected]> +;;; Copyright © 2022 Marius Bakke <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -106,6 +107,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)) |