diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-09-09 12:22:14 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-09-09 12:22:14 +0200 |
| commit | 94ca5b4357af8f8921f0cb0873a7cf316f13aa69 (patch) | |
| tree | 6ef30120737f26f298f7f17d86597b0b729517e0 /gnu/tests/ganeti.scm | |
| parent | 6750c114e3e988249f4069d0180316c6d0192350 (diff) | |
| parent | db61bdd7f52270a35bd0a3a88650d98276dab20b (diff) | |
| download | guix-94ca5b4357af8f8921f0cb0873a7cf316f13aa69.tar.gz guix-94ca5b4357af8f8921f0cb0873a7cf316f13aa69.zip | |
Merge branch 'master' into emacs-team
Diffstat (limited to 'gnu/tests/ganeti.scm')
| -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") |