marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Add test for choice

Browse source
This commit is contained in:
Marcus Kammer 2023-09-26 14:28:20 +02:00
parent 3b1a5cc2b4
commit 5930d8a31f
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/pattern/questionnaire.lisp
View file

@ -8,6 +8,7 @@
:choicep :choicep
:choicesp :choicesp
:questionp :questionp
:choice
:question :question
:resolve-input-type :resolve-input-type
:resolve-input-and-choice :resolve-input-and-choice
@ -54,6 +55,15 @@
(ok (equal choices '("A" "B")))) (ok (equal choices '("A" "B"))))
(ok (signals (resolve-input-and-choice '("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 (deftest test-question-radio
(let ((result (spinneret:with-html-string (let ((result (spinneret:with-html-string
(question "What is your favorite color?" (question "What is your favorite color?"