02/09: services: ganeti: Fix tests.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit a71ce15c73b211512e7eafbe325894a2be98845f
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Thu Sep 7 21:39:28 2023 +0800

    services: ganeti: Fix tests.
    
    * gnu/tests/ganeti.scm (run-ganeti-test)["force-start wconfd"]: Don't use
    INVOKE.
    ["gnt-os list"]: Import (ice-9 textual-ports).
---
 gnu/tests/ganeti.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/tests/ganeti.scm b/gnu/tests/ganeti.scm
index b5624b7598..29eb354044 100644
--- a/gnu/tests/ganeti.scm
+++ b/gnu/tests/ganeti.scm
@@ -165,9 +165,9 @@
             (marionette-eval
              '(begin
                 (setenv "PATH" "/run/current-system/profile/bin")
-                (invoke "herd" "stop" "ganeti-wconfd")
-                (invoke "herd" "disable" "ganeti-wconfd")
-                (invoke "herd" "force-start" "ganeti-wconfd"))
+                (and (zero? (system* "herd" "stop" "ganeti-wconfd"))
+                     (zero? (system* "herd" "disable" "ganeti-wconfd"))
+                     (zero? (system* "herd" "force-start" "ganeti-wconfd"))))
              marionette))
 
           ;; Verify that the cluster is healthy.
@@ -230,7 +230,8 @@
             "debootstrap+default\nguix+default\n"
             (marionette-eval
              '(begin
-                (use-modules (ice-9 popen))
+                (use-modules (ice-9 popen)
+                             (ice-9 textual-ports))
                 (let* ((port (open-pipe*
                               OPEN_READ
                               #$(file-append ganeti "/sbin/gnt-os")