mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 13:10:33 +02:00
read-print: Adjust test for keyword alignment.
This is a followup to f774422769, which
changed the rule without updating the test.
* tests/read-print.scm ("keyword-value-same-line"): Adjust.
Change-Id: Ie802ef3d2e577cb0647158baed0606c958394c06
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2021-2023, 2025 Ludovic Courtès <ludo@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 "\
|
||||
|
||||
Reference in New Issue
Block a user