diff options
Diffstat (limited to 'test/06.lisp')
-rw-r--r-- | test/06.lisp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/test/06.lisp b/test/06.lisp new file mode 100644 index 0000000..2b00ab8 --- /dev/null +++ b/test/06.lisp @@ -0,0 +1,23 @@ +(use-package :clunit) + +(defsuite 06/aoc (aoc)) + +(defvar 06/default-input '("3,4,3,1,2")) + +(deftest 06/test-ex-a (06/aoc) + (let ((result (06/part-a (06/parse-input-direct 06/default-input)))) + (assert-equalp 5934 result))) + +(deftest 06/test-ex-b (06/aoc) + (let ((result (06/part-b (06/parse-input-direct 06/default-input)))) + (assert-equalp 26984457539 result))) + +(deftest 06/test-a (06/aoc) + (let ((result (06/part-a (06/parse-input "inputs/06.txt")))) + (assert-equalp 372300 result))) + +(deftest 06/test-b (06/aoc) + (let ((result (06/part-b (06/parse-input "inputs/06.txt")))) + (assert-equalp 1675781200288 result))) + +(defun 06/run-tests () (run-suite '06/aoc)) |