summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2023-09-24 02:00:00 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2023-09-24 02:00:00 +0200
commit7c861ab4f46c1239ea2da4ef7b57deb88e2b2761 (patch)
treea868b84fce3372b05cf4a86859e6f5e844d38e42 /tests
parent465af37f8119aae0506a666b8afd63fc3710c627 (diff)
tests: read-print: Update expectations.
This follows up on commit 974b04ab8063382f3a91b0cf5e46bac6e0238672, which I tested with the wrong test (tests/style.scm) instead. Oops. * tests/read-print.scm: Update two TEST-PRETTY-PRINT strings.
Diffstat (limited to 'tests')
-rw-r--r--tests/read-print.scm25
1 files changed, 13 insertions, 12 deletions
diff --git a/tests/read-print.scm b/tests/read-print.scm
index 9e1d8038f1..c8b8eb73fe 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -258,13 +258,13 @@ mnopqrstuvwxyz.\")"
(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 @@ mnopqrstuvwxyz.\")"
(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)