summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-08-02 22:52:10 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-08 11:54:24 +0200
commit445a0d134ce735577d1e22f210c2e5ceafc56762 (patch)
treeef4d0a5c97465ad1e0ef50f8b7dcf620b988294a /tests
parenta109ee90486981242beb4272142d429cd0d2e3c3 (diff)
read-print: Support printing multi-line comments.
* guix/read-print.scm (%not-newline): New variable. (print-multi-line-comment): New procedure. (pretty-print-with-comments): Use it. * tests/read-print.scm ("pretty-print-with-comments, multi-line comment"): New test.
Diffstat (limited to 'tests')
-rw-r--r--tests/read-print.scm14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/read-print.scm b/tests/read-print.scm
index e3f23194af..004fcff19f 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -341,4 +341,18 @@ mnopqrstuvwxyz.\")"
#:format-vertical-space
canonicalize-vertical-space)))))
+(test-equal "pretty-print-with-comments, multi-line comment"
+ "\
+(list abc
+ ;; This comment spans
+ ;; two lines.
+ def)"
+ (call-with-output-string
+ (lambda (port)
+ (pretty-print-with-comments port
+ `(list abc ,(comment "\
+;; This comment spans\n
+;; two lines.\n")
+ def)))))
+
(test-end)