diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-05-06 21:37:44 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-05-06 23:22:25 +0900 |
| commit | fbf8b81971475ee712338f1c955be6ac44099fac (patch) | |
| tree | 91c2d2137448c29e190ac5ae191cc2f9f732d5de /gnu/tests | |
| parent | b8afb3100ec4f0b29701e49be6fc8d218ce963f6 (diff) | |
tests: Fix (gnu tests base.scm) module indentation.
* gnu/tests/base.scm: Fix indentation.
Change-Id: I3432fafa2f5c2853a14b5d125cf9377786ca6594
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/base.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 612af21b549..20fc848e5ce 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm | |||
| @@ -227,7 +227,7 @@ info --version") | |||
| 227 | marionette))) | 227 | marionette))) |
| 228 | 228 | ||
| 229 | (test-equal "/var/log/messages is not world-readable" | 229 | (test-equal "/var/log/messages is not world-readable" |
| 230 | #o640 ;<https://bugs.gnu.org/40405> | 230 | #o640 ;<https://bugs.gnu.org/40405> |
| 231 | (begin | 231 | (begin |
| 232 | (wait-for-file "/var/log/messages" marionette | 232 | (wait-for-file "/var/log/messages" marionette |
| 233 | #:read 'get-u8) | 233 | #:read 'get-u8) |
| @@ -448,7 +448,7 @@ info --version") | |||
| 448 | marionette)) | 448 | marionette)) |
| 449 | 449 | ||
| 450 | (test-equal "nscd invalidate action" | 450 | (test-equal "nscd invalidate action" |
| 451 | '(#t) ;one value, #t | 451 | '(#t) ;one value, #t |
| 452 | (marionette-eval '(with-shepherd-action 'nscd ('invalidate "hosts") | 452 | (marionette-eval '(with-shepherd-action 'nscd ('invalidate "hosts") |
| 453 | result | 453 | result |
| 454 | result) | 454 | result) |
| @@ -458,7 +458,7 @@ info --version") | |||
| 458 | ;; code of 'nscd' so skip this test. | 458 | ;; code of 'nscd' so skip this test. |
| 459 | (test-skip 1) | 459 | (test-skip 1) |
| 460 | (test-equal "nscd invalidate action, wrong table" | 460 | (test-equal "nscd invalidate action, wrong table" |
| 461 | '(#f) ;one value, #f | 461 | '(#f) ;one value, #f |
| 462 | (marionette-eval '(with-shepherd-action 'nscd ('invalidate "xyz") | 462 | (marionette-eval '(with-shepherd-action 'nscd ('invalidate "xyz") |
| 463 | result | 463 | result |
| 464 | result) | 464 | result) |
| @@ -509,7 +509,7 @@ info --version") | |||
| 509 | marionette)) | 509 | marionette)) |
| 510 | 510 | ||
| 511 | (test-equal "guix-daemon set-http-proxy action" | 511 | (test-equal "guix-daemon set-http-proxy action" |
| 512 | '(#t) ;one value, #t | 512 | '(#t) ;one value, #t |
| 513 | (marionette-eval '(with-shepherd-action 'guix-daemon | 513 | (marionette-eval '(with-shepherd-action 'guix-daemon |
| 514 | ('set-http-proxy "http://localhost:8118") | 514 | ('set-http-proxy "http://localhost:8118") |
| 515 | result | 515 | result |
| @@ -517,7 +517,7 @@ info --version") | |||
| 517 | marionette)) | 517 | marionette)) |
| 518 | 518 | ||
| 519 | (test-equal "guix-daemon set-http-proxy action, clear" | 519 | (test-equal "guix-daemon set-http-proxy action, clear" |
| 520 | '(#t) ;one value, #t | 520 | '(#t) ;one value, #t |
| 521 | (marionette-eval '(with-shepherd-action 'guix-daemon | 521 | (marionette-eval '(with-shepherd-action 'guix-daemon |
| 522 | ('set-http-proxy) | 522 | ('set-http-proxy) |
| 523 | result | 523 | result |
