summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2023-09-07 21:39:28 +0800
committerMarius Bakke <marius@gnu.org>2023-09-08 18:53:46 +0800
commita71ce15c73b211512e7eafbe325894a2be98845f (patch)
treea7232e17dbbe7ebc620c031bde190973f188e749
parentb41ea5dcd4a70af3b5efdcac939b56a0e2243a69 (diff)
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).
-rw-r--r--gnu/tests/ganeti.scm9
1 files 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")