aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-09-17 16:15:17 +0200
committerLudovic Courtès <ludo@gnu.org>2022-09-20 19:24:31 +0200
commit7a698da0d04d75f1c49f9ae9f358070acab0f781 (patch)
treeb0d4b48b18fdcdfc822313b569e1e7c25fec4c6d /tests
parent818220f1ccd57d14a62f07489b0e5e21837bb3dd (diff)
downloadguix-7a698da0d04d75f1c49f9ae9f358070acab0f781.tar
guix-7a698da0d04d75f1c49f9ae9f358070acab0f781.tar.gz
read-print: Correctly support multiple same-named newline forms.
Previously (home-environment (services ...)) would not be considered a "newline form". This fixes it. * guix/read-print.scm (newline-form?): Use 'vhash-foldq*' instead of 'vhash-assq' and iterate over candidates. * tests/read-print.scm: Add test.
Diffstat (limited to 'tests')
-rw-r--r--tests/read-print.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/read-print.scm b/tests/read-print.scm
index ca3f3193f7..ea52a52145 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -294,6 +294,11 @@ mnopqrstuvwxyz.\")"
;; page break above
end)")
+(test-pretty-print "\
+(home-environment
+ (services
+ (list (service-type home-bash-service-type))))")
+
(test-pretty-print/sequence "\
;;; This is a top-level comment.