[shepherd] 03/05: tests: Remove tabs from 'status-sexp.sh'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit a9ec2635a985690833b075f55d667b3320a225ab
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun May 7 22:55:59 2023 +0200

    tests: Remove tabs from 'status-sexp.sh'.
    
    * tests/status-sexp.sh: Remove tabs.
---
 tests/status-sexp.sh | 58 ++++++++++++++++++++++++++--------------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

diff --git a/tests/status-sexp.sh b/tests/status-sexp.sh
index 8218406..b9847ad 100644
--- a/tests/status-sexp.sh
+++ b/tests/status-sexp.sh
@@ -32,18 +32,18 @@ trap "rm -f $socket $conf $stamp $log;
 cat > "$conf"<<EOF
 (register-services
  (list (service
-        '(foo)
-        #:start (const 'abc)
-        #:stop  (const #f)
-        #:documentation "Foo!"
-        #:respawn? #t)
+         '(foo)
+         #:start (const 'abc)
+         #:stop  (const #f)
+         #:documentation "Foo!"
+         #:respawn? #t)
        (service
-        '(bar)
-        #:requirement '(foo)
-        #:start (const 'up-and-running)
-        #:stop  (const #f)
-        #:documentation "Bar!"
-        #:respawn? #f)))
+         '(bar)
+         #:requirement '(foo)
+         #:start (const 'up-and-running)
+         #:stop  (const #f)
+         #:documentation "Bar!"
+         #:respawn? #f)))
 
 (start-service (lookup-service 'foo))
 EOF
@@ -86,15 +86,15 @@ define_reset_timestamps="
   (match service
     (('service version properties ...)
      (cons* 'service version
-           (map (match-lambda
-                  (('status-changes alist)
+            (map (match-lambda
+                   (('status-changes alist)
                     (list 'status-changes
-                         (map (match-lambda
-                                ((status . _)
-                                 (cons status 0)))
-                              alist)))
+                          (map (match-lambda
+                                 ((status . _)
+                                  (cons status 0)))
+                               alist)))
                    (prop prop))
-                properties)))))
+                 properties)))))
 "
 
 "$GUILE" -c "
@@ -107,21 +107,21 @@ $define_reset_timestamps
    (('reply _ ('result (services)) ('error #f) ('messages ()))
     (lset= equal?
            (pk 'ACTUAL (map reset-timestamps services))
-          '($root_service_sexp
-            (service (version 0)
-              (provides (foo)) (requires ())
-              (respawn? #t) (docstring \"Foo!\")
-              (enabled? #t) (running abc) (conflicts ())
-              (last-respawns ())
+           '($root_service_sexp
+             (service (version 0)
+               (provides (foo)) (requires ())
+               (respawn? #t) (docstring \"Foo!\")
+               (enabled? #t) (running abc) (conflicts ())
+               (last-respawns ())
                (status-changes ((running . 0) (starting . 0)))
                (startup-failures ())
                (status running)
                (one-shot? #f) (transient? #f))
-            (service (version 0)
-              (provides (bar)) (requires (foo))
-              (respawn? #f) (docstring \"Bar!\")
-              (enabled? #t) (running #f) (conflicts ())
-              (last-respawns ())
+             (service (version 0)
+               (provides (bar)) (requires (foo))
+               (respawn? #f) (docstring \"Bar!\")
+               (enabled? #t) (running #f) (conflicts ())
+               (last-respawns ())
                (status-changes ())
                (startup-failures ())
                (status stopped)