diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-09-24 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-09-24 02:00:00 +0200 |
| commit | 7c861ab4f46c1239ea2da4ef7b57deb88e2b2761 (patch) | |
| tree | a868b84fce3372b05cf4a86859e6f5e844d38e42 /tests | |
| parent | 465af37f8119aae0506a666b8afd63fc3710c627 (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.scm | 25 |
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) |