From ae37cdfdcaab5b57e56d41640cd8259e8b3819b2 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 15 Sep 2023 20:11:43 +0200
Subject: [PATCH] Fix code indentation

---
 tests/pattern/questionnaire.lisp | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/tests/pattern/questionnaire.lisp b/tests/pattern/questionnaire.lisp
index 1ebf007..8f73275 100644
--- a/tests/pattern/questionnaire.lisp
+++ b/tests/pattern/questionnaire.lisp
@@ -77,10 +77,10 @@
 
 (deftest test-create-questionnaire-multiple
   (let ((result (spinneret:with-html-string
-                   (questionnaire "/submit"
-                                  (:ask "Which of the following devices do you regularly use to browse the internet?"
-                                   :group "device"
-                                   :choices (:multiple "Desktop" "Laptop" "Tablet"))))))
+                  (questionnaire "/submit"
+                    (:ask "Which of the following devices do you regularly use to browse the internet?"
+                     :group "device"
+                     :choices (:multiple "Desktop" "Laptop" "Tablet"))))))
     (testing "Generates correct HTML for questionnaire with multiple choices"
       (ok (search "<form class=py-5 action=/submit method=post>" result))
       (ok (search "<legend>Which of the following devices do you regularly use to browse the internet?</legend>" result))
@@ -92,11 +92,11 @@
 
 (deftest test-create-questionnaire-mixed-choices
   (let ((result (spinneret:with-html-string
-                   (questionnaire "/submit"
-                                  (:ask "Which of the following devices do you regularly use to browse the internet?"
-                                   :group "device"
-                                   :choices (:multiple "Desktop" "Laptop" "Tablet"
-                                             :text "Others (please specify)"))))))
+                  (questionnaire "/submit"
+                    (:ask "Which of the following devices do you regularly use to browse the internet?"
+                     :group "device"
+                     :choices (:multiple "Desktop" "Laptop" "Tablet"
+                               :text "Others (please specify)"))))))
     (testing "Generates correct HTML for questionnaire with multiple choices"
       (ok (search "<form class=py-5 action=/submit method=post>" result))
       (ok (search "<legend>Which of the following devices do you regularly use to browse the internet?</legend>" result))
@@ -111,12 +111,12 @@
   (let* ((spinneret:*html-lang* "de")
          (result (spinneret:with-html-string
                    (questionnaire "/submit"
-                                  (:frage "Ihr Geschlecht?"
-                                   :gruppe "geschlecht"
-                                   :auswahl (:single "Männlich"
-                                                     "Weiblich"
-                                                     "Non-Binary"
-                                                     "Keine Angabe"))))))
+                     (:frage "Ihr Geschlecht?"
+                      :gruppe "geschlecht"
+                      :auswahl (:single "Männlich"
+                                        "Weiblich"
+                                        "Non-Binary"
+                                        "Keine Angabe"))))))
     (testing "Generates correct HTML for questionnaire with single choices"
       (ok (search "<form class=py-5 action=/submit method=post>" result))
       (ok (search "<legend>Ihr Geschlecht?</legend>" result))