me
/
guix
Archived
1
0
Fork 0
Code

tests: read-print: Update expectations. 

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.
master
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 @@ mnopqrstuvwxyz.\")"
(test-pretty-print "\ (test-pretty-print "\
(package (package
;; Here 'sha256', 'base32', and 'arguments' must be ;; Here 'source', 'sha256', and 'arguments' must be
;; immediately followed by a newline. ;; immediately followed by a newline.
(source (origin (source
(method url-fetch) (origin
(sha256 (method url-fetch)
(base32 (sha256
\"not a real base32 string\")))) (base32 \"not a real base32 string\"))))
(arguments (arguments
'(#:phases %standard-phases '(#:phases %standard-phases
#:tests? #f)))") #:tests? #f)))")
@ -274,12 +274,13 @@ mnopqrstuvwxyz.\")"
(package (package
(name \"keyword-value-same-line\") (name \"keyword-value-same-line\")
(arguments (arguments
(list #:phases #~(modify-phases %standard-phases (list
(add-before 'x 'y #:phases #~(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))))
#:tests? #f)))") #:make-flags #~'(\"ANSWER=42\")
#:tests? #f)))")
(test-pretty-print "\ (test-pretty-print "\
(let ((x 1) (let ((x 1)