diff options
| author | Marius Bakke <marius@gnu.org> | 2023-09-07 21:39:28 +0800 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2023-09-08 18:53:46 +0800 |
| commit | a71ce15c73b211512e7eafbe325894a2be98845f (patch) | |
| tree | a7232e17dbbe7ebc620c031bde190973f188e749 /gnu/tests | |
| parent | b41ea5dcd4a70af3b5efdcac939b56a0e2243a69 (diff) | |
| download | guix-a71ce15c73b211512e7eafbe325894a2be98845f.tar guix-a71ce15c73b211512e7eafbe325894a2be98845f.tar.gz | |
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).
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/ganeti.scm | 9 |
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") |