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

Fix naming

Browse source
This commit is contained in:
Marcus Kammer 2023-09-19 17:26:35 +02:00
parent 58f4cc3084
commit 5f3441e9ad
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/pattern/questionnaire.lisp
View file

@ -125,7 +125,7 @@ Returns:
(defmacro process-choice (group choice)
(multiple-value-bind (type values)
(resolve-input-and-choices choice)
(resolve-input-and-choice choice)
(if (string= type "combo")
`(spinneret:with-html
(:li (combo () ,@values)))

8
tests/pattern/questionnaire.lisp
View file

@ -7,7 +7,7 @@
:cl-sbt/questionnaire
:question
:resolve-input-type
:resolve-input-and-choices
:resolve-input-and-choice
:extract-question-components
:questionnaire))
@ -19,14 +19,14 @@
(ok (string= "checkbox" (resolve-input-type "multiple")))
(ok (string= "text" (resolve-input-type "text")))))
(deftest test-resolve-input-and-choices
(deftest test-resolve-input-and-choice
(testing "Test for resolve-input-and-choices"
(multiple-value-bind (type choices)
(resolve-input-and-choices '(:radio "A" "B"))
(resolve-input-and-choice '(:radio "A" "B"))
(ok (string= type "radio"))
(ok (equal choices '("A" "B"))))
(multiple-value-bind (type choices)
(resolve-input-and-choices '("A" "B"))
(resolve-input-and-choice '("A" "B"))
(ok (null type))
(ok (equal choices '("A" "B"))))))