From be64f23b8d9c51750011c92a6ed3a9c673c3b1a2 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 22 Dec 2021 19:28:59 +0100 Subject: Add day 6 --- test/06.lisp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 test/06.lisp (limited to 'test') 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)) -- cgit