amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: ganeti: Remove unnecessary ‘begin’.

Browse source 
* gnu/tests/ganeti.scm (run-ganeti-test): Remove ‘begin’ where
unnecessary.

Reviewed-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Change-Id: I3a36fffdc797c9187b5ffa406f7a06985f18d29c
This commit is contained in:
Ludovic Courtès 2025-03-15 18:58:10 +01:00
parent caf5869a1d
commit 8de23e8260
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/tests/ganeti.scm
View file

@ -154,9 +154,8 @@
(test-eq "watcher pause"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/sbin/gnt-cluster")
"watcher" "pause" "1h"))
'(system* #$(file-append ganeti "/sbin/gnt-cluster")
"watcher" "pause" "1h")
marionette))
(test-assert "force-start wconfd"
@ -174,8 +173,7 @@
(test-eq "gnt-cluster verify 1"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/sbin/gnt-cluster") "verify"))
'(system* #$(file-append ganeti "/sbin/gnt-cluster") "verify")
marionette))
;; Try stopping and starting daemons with daemon-util like
@ -183,33 +181,29 @@
(test-eq "daemon-util stop-all"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/lib/ganeti/daemon-util")
"stop-all"))
'(system* #$(file-append ganeti "/lib/ganeti/daemon-util")
"stop-all")
marionette))
(test-eq "daemon-util start-all"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/lib/ganeti/daemon-util")
"start-all"))
'(system* #$(file-append ganeti "/lib/ganeti/daemon-util")
"start-all")
marionette))
;; Check that the cluster is still healthy after the daemon restarts.
(test-eq "gnt-cluster verify 2"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/sbin/gnt-cluster") "verify"))
'(system* #$(file-append ganeti "/sbin/gnt-cluster") "verify")
marionette))
(test-eq "watcher continue"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/sbin/gnt-cluster")
"watcher" "continue"))
'(system* #$(file-append ganeti "/sbin/gnt-cluster")
"watcher" "continue")
marionette))
;; Try accessing the RAPI.
@ -244,9 +238,8 @@
(test-eq "gnt-cluster destroy"
0
(marionette-eval
'(begin
(system* #$(file-append ganeti "/sbin/gnt-cluster")
"destroy" "--yes-do-it"))
'(system* #$(file-append ganeti "/sbin/gnt-cluster")
"destroy" "--yes-do-it")
marionette))
(test-end))))