From f74b63d436bc47612bf2ca0132a42894aa44c8bd Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 5 Jan 2025 14:47:04 +0100 Subject: [PATCH] Add more tests --- tests/tests.lisp | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/tests/tests.lisp b/tests/tests.lisp index 4e306de..54a2552 100644 --- a/tests/tests.lisp +++ b/tests/tests.lisp @@ -5,7 +5,8 @@ (:import-from #:ml-qmetrics/assessment #:nps-calc-score - #:nps-enumerate)) + #:nps-enumerate + #:sus-response-entries-process)) (in-package :ml-qmetrics/tests) @@ -18,7 +19,21 @@ (is (= 0 (apply #'nps-calc-score '(0 0 1))))) (test nps-enumerate - (is (equal '(0 0 0) (nps-enumerate '(0 11)))) + (is (equal '(0 1 1) (nps-enumerate '(0 11)))) (is (equal '(0 4 4) (nps-enumerate '(1 2 3 4)))) (signals error (nps-enumerate 0)) (signals error (nps-enumerate '()))) + +(test sus-response-entries-process + (let ((sample-data '(("group-q1" . "3-neither-agree-nor-disagree") + ("group-q2-r" . "4-agree") + ("group-q3" . "5-strongly-agree") + ("group-q4-r" . "1-strongly-disagree") + ("group-q5" . "5-strongly-agree") + ("group-q6-r" . "2-disagree") + ("group-q7" . "3-neither-agree-nor-disagree") + ("group-q8-r" . "3-neither-agree-nor-disagree") + ("group-q9" . "4-agree") + ("group-q10-r" . "2-disagree")))) + (is (equal '(:Q1 2 :Q2 1 :Q3 4 :Q4 4 :Q5 4 :Q6 3 :Q7 2 :Q8 2 :Q9 3 :Q10 3) + (sus-response-entries-process sample-data)))))