branch master updated: tests: read-print: Update expectations.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 7c861ab4f4 tests: read-print: Update expectations.
7c861ab4f4 is described below

commit 7c861ab4f46c1239ea2da4ef7b57deb88e2b2761
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Sep 24 02:00:00 2023 +0200

    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.
---
 tests/read-print.scm | 25 +++++++++++++------------
 1 file 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)