~ruther/guix-local: tests: read-print: Update expectations.

7c861ab4f46c1239ea2da4ef7b57deb88e2b2761 — Tobias Geerinckx-Rice 2 years ago 465af37

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.

patch browse .tar.gz .zip

1 files changed, 13 insertions(+), 12 deletions(-)

M tests/read-print.scm

M tests/read-print.scm => tests/read-print.scm +13 -12

@@ 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)