ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: read-print: Update expectations.

Browse source 
This follows up on commit 974b04ab80, which
I tested with the wrong test (tests/style.scm) instead.  Oops.

* tests/read-print.scm: Update two TEST-PRETTY-PRINT strings.
This commit is contained in:
Tobias Geerinckx-Rice 2023-09-24 02:00:00 +02:00
parent 465af37f81
commit 7c861ab4f4
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
tests/read-print.scm
View file

@ -258,13 +258,13 @@ (define-syntax-rule (test-pretty-print/sequence str args ...)
(test-pretty-print "\
(package
;; Here 'sha256', 'base32', and 'arguments' must be
;; Here 'source', 'sha256', and 'arguments' must be
;; immediately followed by a newline.
(source (origin
(method url-fetch)
(sha256
(base32
\"not a real base32 string\"))))
(source
(origin
(method url-fetch)
(sha256
(base32 \"not a real base32 string\"))))
(arguments
'(#:phases %standard-phases
#:tests? #f)))")
@ -274,12 +274,13 @@ (define-syntax-rule (test-pretty-print/sequence str args ...)
(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\")
#:tests? #f)))")
(list
#: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 "\
(let ((x 1)