diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-01-03 11:04:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-01-10 14:59:18 +0100 |
| commit | 6f892630ae4726297944fe34b3de4fb608caf66d (patch) | |
| tree | 208d634c0fba6d4fb9b3fba06863998048e8c084 /tests/style.scm | |
| parent | 208a7aa17b101083bd9969fec9ca4e2dca37b3af (diff) | |
| download | guix-6f892630ae4726297944fe34b3de4fb608caf66d.tar.gz | |
style: Add support for "newline forms".
This allows us to express cases where a newline should be inserted immediately after the head symbol of a list. * guix/scripts/style.scm (%newline-forms): New variable. (newline-form?): New procedure. (pretty-print-with-comments): Handle "newline forms". * tests/style.scm: Add test.
Diffstat (limited to 'tests/style.scm')
| -rw-r--r-- | tests/style.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/style.scm b/tests/style.scm index 6c449cb72e..8022688419 100644 --- a/tests/style.scm +++ b/tests/style.scm @@ -465,6 +465,19 @@ mnopqrstuvwxyz.\")" ;; Regular indentation for 'replace' here. (replace \"gmp\" gmp))") +(test-pretty-print "\ +(package + ;; Here 'sha256', 'base32', and 'arguments' must be + ;; immediately followed by a newline. + (source (origin + (method url-fetch) + (sha256 + (base32 + \"not a real base32 string\")))) + (arguments + '(#:phases %standard-phases + #:tests? #f)))") + (test-end) ;; Local Variables: |