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?"