From 7c861ab4f46c1239ea2da4ef7b57deb88e2b2761 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 24 Sep 2023 02:00:00 +0200
Subject: 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(-)

(limited to 'tests')

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 @@ (define-syntax-rule (test-pretty-print/sequence str args ...)
 
 (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 @@ (define-syntax-rule (test-pretty-print/sequence str args ...)
 (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)
-- 
cgit v1.2.3