Add day 6main

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))