01/02: tests: libvirt-test: Give the libvirt service time to start.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 7a70532dd8a6d5b58f6a57220aa51e3cdc20ec88
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Jun 16 19:03:26 2024 +0300

    tests: libvirt-test: Give the libvirt service time to start.
    
    * gnu/tests/virtualization.scm (run-libvirt-test): Sleep for 1 second
    after starting the libvirtd service but before running the tests against
    it.
    
    Change-Id: I4d17a42ff7f0f2decc12c8e33991259c330a78f4
---
 gnu/tests/virtualization.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gnu/tests/virtualization.scm b/gnu/tests/virtualization.scm
index c8b42eb1db..ed8d6b1c85 100644
--- a/gnu/tests/virtualization.scm
+++ b/gnu/tests/virtualization.scm
@@ -94,6 +94,9 @@
                      ((pid) (number? pid))))))
              marionette))
 
+          ;; Give the libvirtd service time to start up.
+          (sleep 1)
+
           (test-eq "fetch version"
             0
             (marionette-eval