me
/
guix
Archived
1
0
Fork 0
Code

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).
master
Marius Bakke 2023-09-07 21:39:28 +08:00
parent b41ea5dcd4
commit a71ce15c73
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/tests/ganeti.scm
View File

@ -165,9 +165,9 @@
(marionette-eval (marionette-eval
'(begin '(begin
(setenv "PATH" "/run/current-system/profile/bin") (setenv "PATH" "/run/current-system/profile/bin")
(invoke "herd" "stop" "ganeti-wconfd") (and (zero? (system* "herd" "stop" "ganeti-wconfd"))
(invoke "herd" "disable" "ganeti-wconfd") (zero? (system* "herd" "disable" "ganeti-wconfd"))
(invoke "herd" "force-start" "ganeti-wconfd")) (zero? (system* "herd" "force-start" "ganeti-wconfd"))))
marionette)) marionette))
;; Verify that the cluster is healthy. ;; Verify that the cluster is healthy.
@ -230,7 +230,8 @@
"debootstrap+default\nguix+default\n" "debootstrap+default\nguix+default\n"
(marionette-eval (marionette-eval
'(begin '(begin
(use-modules (ice-9 popen)) (use-modules (ice-9 popen)
(ice-9 textual-ports))
(let* ((port (open-pipe* (let* ((port (open-pipe*
OPEN_READ OPEN_READ
#$(file-append ganeti "/sbin/gnt-os") #$(file-append ganeti "/sbin/gnt-os")