tests: Fix indentation of (gnu tests base).

* gnu/tests/base.scm: Fix indentation.

Change-Id: I84ae82a8ce85ff0113a3eb1215b11c191d3929d6

1 files changed, 17 insertions, 17 deletions

diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm
index ef05e56e5f7..612af21b549 100644
--- a/gnu/tests/base.scm
+++ b/gnu/tests/base.scm
@@ -213,8 +213,8 @@ info --version")
               (lset= eq?
                      (pk 'services services)
                      '(root
-                       shepherd
-                       #$@(operating-system-shepherd-service-names os)))))
+                          shepherd
+                        #$@(operating-system-shepherd-service-names os)))))
 
           (test-equal "libc honors /etc/localtime"
             -7200          ;CEST = GMT+2
@@ -451,7 +451,7 @@ info --version")
             '(#t)                                 ;one value, #t
             (marionette-eval '(with-shepherd-action 'nscd ('invalidate "hosts")
                                                     result
-                                                    result)
+                                result)
                              marionette))
 
           ;; FIXME: The 'invalidate' action can't reliably obtain the exit
@@ -461,7 +461,7 @@ info --version")
             '(#f)                                 ;one value, #f
             (marionette-eval '(with-shepherd-action 'nscd ('invalidate "xyz")
                                                     result
-                                                    result)
+                                result)
                              marionette))
 
           (test-equal "host not found"
@@ -482,12 +482,12 @@ info --version")
                                 ;; Make sure the (guix …) modules are found.
                                 (eval-when (expand load eval)
                                   (set! %load-path
-                                    (append (map (lambda (package)
-                                                   (string-append package
-                                                                  "/share/guile/site/"
-                                                                  (effective-version)))
-                                                 '#$guix&co)
-                                            %load-path)))
+                                        (append (map (lambda (package)
+                                                       (string-append package
+                                                                      "/share/guile/site/"
+                                                                      (effective-version)))
+                                                     '#$guix&co)
+                                                %load-path)))
 
                                 (use-modules (srfi srfi-34) (guix store))
 
@@ -882,13 +882,13 @@ non-ASCII names from /tmp.")
 (define %activation-os
   ;; System with a new user/group, a setuid/setgid binary and an activation script
   (let* ((%hello-accounts
-           (list (user-group (name "hello") (system? #t))
-                 (user-account
-                  (name "hello")
-                  (group "hello")
-                  (system? #t)
-                  (comment "")
-                  (home-directory "/var/empty"))))
+          (list (user-group (name "hello") (system? #t))
+                (user-account
+                 (name "hello")
+                 (group "hello")
+                 (system? #t)
+                 (comment "")
+                 (home-directory "/var/empty"))))
          (%hello-privileged
           (list
            (privileged-program