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

Additional test cases for questionnaire

Browse source
This commit is contained in:
Marcus Kammer 2023-09-16 09:19:07 +02:00
parent ae37cdfdca
commit 3b2983d373
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 35 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
tests/pattern/questionnaire.lisp
View file

@ -30,6 +30,41 @@
(ok (null type)) (ok (null type))
(ok (equal choices '("A" "B")))))) (ok (equal choices '("A" "B"))))))
(deftest test-question-radio
(let ((result (spinneret:with-html-string
(question "What is your favorite color?"
"favcolor"
(:radio "Red" "Green" "Blue")))))
(testing "Generates correct HTML for question using radio checkable"
(ok (search "for=group-favcolor-red" result))
(ok (search "for=group-favcolor-green" result))
(ok (search "for=group-favcolor-blue" result))
(ok (search "id=group-favcolor-red" result))
(ok (search "id=group-favcolor-green" result))
(ok (search "id=group-favcolor-blue" result))
(ok (search "type=radio" result))
(ok (search "What is your favorite color?" result)))))
(deftest test-question-checkbox
(let ((result (spinneret:with-html-string
(question "What is your favorite color?"
"favcolor"
(:checkbox "Red" "Green" "Blue")))))
(testing "Generates correct HTML for question using checkbox checkable"
(ok (search "type=checkbox" result)))))
(deftest test-question-select
(let ((result (spinneret:with-html-string
(question "What is your favorite color?"
"favcolor"
(:select "Red" "Green" "Blue")))))
(testing "Generates correct HTML for question using select"
(ok (search "select" result))
(ok (search "option value=red" result))
(ok (search "option value=green" result))
(ok (search "option value=blue" result))
(ok (search "What is your favorite color?" result)))))
(deftest test-extract-question-components (deftest test-extract-question-components
(testing "Test for extract-question-components" (testing "Test for extract-question-components"
(multiple-value-bind (ask1 group1 choices1) (multiple-value-bind (ask1 group1 choices1)