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