summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-01-03 11:04:40 +0100
committerLudovic Courtès <ludo@gnu.org>2022-01-10 14:59:18 +0100
commit6f892630ae4726297944fe34b3de4fb608caf66d (patch)
tree208d634c0fba6d4fb9b3fba06863998048e8c084 /tests
parent208a7aa17b101083bd9969fec9ca4e2dca37b3af (diff)
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')
-rw-r--r--tests/style.scm13
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: