From 5f3441e9ad92c8190728726fe7495674cdd986b6 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 19 Sep 2023 17:26:35 +0200 Subject: [PATCH] Fix naming --- src/pattern/questionnaire.lisp | 2 +- tests/pattern/questionnaire.lisp | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp index 0a9fcb9..e2ef072 100644 --- a/src/pattern/questionnaire.lisp +++ b/src/pattern/questionnaire.lisp @@ -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))) diff --git a/tests/pattern/questionnaire.lisp b/tests/pattern/questionnaire.lisp index 7b1f6d0..231db28 100644 --- a/tests/pattern/questionnaire.lisp +++ b/tests/pattern/questionnaire.lisp @@ -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"))))))