[bug#77041,09/16] tests: ganeti: Remove unnecessary ‘begin’.

Message ID 05bc1b0ed65b4456d6e563373deb485e15d7c22d.1742073920.git.ludo@gnu.org
State New
Headers
Series Replacing mcron jobs by Shepherd timers |

Commit Message

Ludovic Courtès March 15, 2025, 9:37 p.m. UTC
  * gnu/tests/ganeti.scm (run-ganeti-test): Remove ‘begin’ where
unnecessary.

Change-Id: I3a36fffdc797c9187b5ffa406f7a06985f18d29c
---
 gnu/tests/ganeti.scm | 31 ++++++++++++-------------------
 1 file changed, 12 insertions(+), 19 deletions(-)
  

Patch

diff --git a/gnu/tests/ganeti.scm b/gnu/tests/ganeti.scm
index 29eb354044..ce55c8e04f 100644
--- a/gnu/tests/ganeti.scm
+++ b/gnu/tests/ganeti.scm
@@ -154,9 +154,8 @@  (define* (run-ganeti-test hypervisor #:key
           (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 @@  (define* (run-ganeti-test hypervisor #:key
           (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 @@  (define* (run-ganeti-test hypervisor #:key
           (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 @@  (define* (run-ganeti-test hypervisor #:key
           (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))))