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

Tests create a questionnaire in german language

Browse source
This commit is contained in:
Marcus Kammer 2023-09-13 15:46:26 +02:00
parent 504683e795
commit 2dc94079a8
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/pattern/questionnaire.lisp
View file

@ -75,3 +75,23 @@
(ok (search "class=form-control" result))
(ok (search "<hr class=my-4>" result))
(ok (search "<button class=\"btn btn-primary\" type=submit>Submit</button>" result)))))
(deftest test-create-questionnaire-single-german
(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"))))))
(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))
(ok (search "class=form-check-input" result))
(ok (search "name=group-geschlecht" result))
(ok (search "value=männlich" result))
(ok (search "value=weiblich" result))
(ok (search "value=keine-angabe" result))
(ok (search "<button class=\"btn btn-primary\" type=submit>Absenden</button>" result)))))