diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-05-05 10:58:37 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-05-06 16:32:06 +0900 |
| commit | 10cb04d8ac5a790de87680882007646f9448d3ba (patch) | |
| tree | 9809ced2b67bdffe7a5e731436f1fb133155074d | |
| parent | ea874d0b3f8cd7539f03c0ea3e1b5184fe4d4132 (diff) | |
| download | guix-10cb04d8ac5a790de87680882007646f9448d3ba.tar.gz guix-10cb04d8ac5a790de87680882007646f9448d3ba.zip | |
tests: Fix indentation of (gnu tests base).
* gnu/tests/base.scm: Fix indentation.
Change-Id: I84ae82a8ce85ff0113a3eb1215b11c191d3929d6
| -rw-r--r-- | gnu/tests/base.scm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index ef05e56e5f..612af21b54 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 |