From 5930d8a31f95118ad09bafdc4c3af6c754af83a4 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 26 Sep 2023 14:28:20 +0200
Subject: [PATCH] Add test for choice

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

diff --git a/tests/pattern/questionnaire.lisp b/tests/pattern/questionnaire.lisp
index 4f045fc..b16b150 100644
--- a/tests/pattern/questionnaire.lisp
+++ b/tests/pattern/questionnaire.lisp
@@ -8,6 +8,7 @@
    :choicep
    :choicesp
    :questionp
+   :choice
    :question
    :resolve-input-type
    :resolve-input-and-choice
@@ -54,6 +55,15 @@
       (ok (equal choices '("A" "B"))))
     (ok (signals (resolve-input-and-choice '("A" "B"))))))
 
+(deftest test-choice-radio
+  (let ((result (spinneret:with-html-string
+                  (choice "hobbies" (:radio "Reading" "Swimming" "Coding")))))
+    (testing "Generates correct HTML for choice"
+      (ok (search "type=radio" result))
+      (ok (search "for=group-hobbies-reading" result))
+      (ok (search "for=group-hobbies-swimming" result))
+      (ok (search "for=group-hobbies-coding" result)))))
+
 (deftest test-question-radio
   (let ((result (spinneret:with-html-string
                   (question "What is your favorite color?"