diff options
author | Ludovic Courtès <[email protected]> | 2025-02-24 17:04:30 +0100 |
---|---|---|
committer | Ludovic Courtès <[email protected]> | 2025-02-24 23:33:51 +0100 |
commit | 536909ea67cd3cfe506326c6411a5c549bb88055 (patch) | |
tree | b21a26bd176e1941c03b13e706058721878c4465 | |
parent | 48e0e6a1274e9112f13deb349cc533d5b7324e93 (diff) |
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
-rw-r--r-- | tests/read-print.scm | 16 |
1 files 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 <[email protected]> +;;; Copyright © 2021-2023, 2025 Ludovic Courtès <[email protected]> ;;; ;;; 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 "\ |