amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

read-print: Adjust test for keyword alignment.

Browse source 
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:
Ludovic Courtès 2025-02-24 17:04:30 +01:00
parent 48e0e6a127
commit 536909ea67
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tests/read-print.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -274,17 +274,19 @@ mnopqrstuvwxyz.\")"
'(#:phases %standard-phases '(#:phases %standard-phases
#:tests? #f)))") #: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 "\ (test-pretty-print "\
(package (package
(name \"keyword-value-same-line\") (name \"keyword-value-same-line\")
(arguments (arguments
(list (list
#:phases #~(modify-phases %standard-phases #:phases
(add-before 'x 'y #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'x 'y
(foo bar baz)))) (lambda* (#:key inputs #:allow-other-keys)
#:make-flags #~'(\"ANSWER=42\") (foo bar baz))))
#:make-flags
#~'(\"ANSWER=42\")
#:tests? #f)))") #:tests? #f)))")
(test-pretty-print "\ (test-pretty-print "\