~ruther/guix-local: services: ganeti: Fix tests.

a71ce15c73b211512e7eafbe325894a2be98845f — Marius Bakke 2 years ago b41ea5d

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).

patch browse .tar.gz

1 files changed, 5 insertions(+), 4 deletions(-)

M gnu/tests/ganeti.scm

M gnu/tests/ganeti.scm => gnu/tests/ganeti.scm +5 -4

@@ 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")