civodul pushed a commit to branch master
in repository guix.
commit 536909ea67cd3cfe506326c6411a5c549bb88055
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Mon Feb 24 17:04:30 2025 +0100
read-print: Adjust test for keyword alignment.
This is a followup to f7744227699d27045e87be9eac3464c2f62ff7e3, which
changed the rule without updating the test.
* tests/read-print.scm ("keyword-value-same-line"): Adjust.
Change-Id: Ie802ef3d2e577cb0647158baed0606c958394c06
---
tests/read-print.scm | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/tests/read-print.scm b/tests/read-print.scm
index c1006a8a68..702bb9cba5 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021-2023 Ludovic Courtès <l...@gnu.org>
+;;; Copyright © 2021-2023, 2025 Ludovic Courtès <l...@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -274,17 +274,19 @@ mnopqrstuvwxyz.\")"
'(#:phases %standard-phases
#:tests? #f)))")
-;; '#:key value' is kept on the same line.
+;; '#:key value' is kept on the same line, except when followed by a gexp.
(test-pretty-print "\
(package
(name \"keyword-value-same-line\")
(arguments
(list
- #:phases #~(modify-phases %standard-phases
- (add-before 'x 'y
- (lambda* (#:key inputs #:allow-other-keys)
- (foo bar baz))))
- #:make-flags #~'(\"ANSWER=42\")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'x 'y
+ (lambda* (#:key inputs #:allow-other-keys)
+ (foo bar baz))))
+ #:make-flags
+ #~'(\"ANSWER=42\")
#:tests? #f)))")
(test-pretty-print "\
