From 536909ea67cd3cfe506326c6411a5c549bb88055 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 24 Feb 2025 17:04:30 +0100
Subject: [PATCH] read-print: Adjust test for keyword alignment.

This is a followup to f7744227699d27045e87be9eac3464c2f62ff7e3, which
changed the rule without updating the test.

* tests/read-print.scm ("keyword-value-same-line"): Adjust.

Change-Id: Ie802ef3d2e577cb0647158baed0606c958394c06
---
 tests/read-print.scm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/tests/read-print.scm b/tests/read-print.scm
index c1006a8a683..702bb9cba59 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2021-2023, 2025 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -274,17 +274,19 @@ mnopqrstuvwxyz.\")"
    '(#:phases %standard-phases
      #:tests? #f)))")
 
-;; '#:key value' is kept on the same line.
+;; '#:key value' is kept on the same line, except when followed by a gexp.
 (test-pretty-print "\
 (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\")
+    #: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 "\