From a71ce15c73b211512e7eafbe325894a2be98845f Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Thu, 7 Sep 2023 21:39:28 +0800 Subject: 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(-) (limited to 'gnu/tests') 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 @@ (define marionette (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 @@ (define marionette "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") -- cgit v1.2.3