1 files changed, 42 insertions, 0 deletions
diff --git a/test/04.lisp b/test/04.lisp
new file mode 100644
index 0000000..cccaf4e
--- /dev/null
+++ b/test/04.lisp
@@ -0,0 +1,42 @@
+(use-package :clunit)
+
+(defsuite 04/aoc (aoc))
+
+(defvar 04/default-input
+  '("7,4,9,5,11,17,23,2,0,14,21,24,10,16,13,6,15,25,12,22,18,20,8,19,3,26,1"
+    ""
+    "22 13 17 11  0"
+    " 8  2 23  4 24"
+    "21  9 14 16  7"
+    " 6 10  3 18  5"
+    " 1 12 20 15 19"
+    ""
+    " 3 15  0  2 22"
+    " 9 18 13 17  5"
+    "19  8  7 25 23"
+    "20 11 10 24  4"
+    "14 21 16 12  6"
+    ""
+    "14 21 17 24  4"
+    "10 16 15  9 19"
+    "18  8 23 26 20"
+    "22 11 13  6  5"
+    " 2  0 12  3  7"))
+
+(deftest 04/test-ex-a (04/aoc)
+  (let ((result (04/part-a (04/parse-input-direct 04/default-input))))
+    (assert-equalp 4512 result)))
+
+(deftest 04/test-ex-b (04/aoc)
+  (let ((result (04/part-b (04/parse-input-direct 04/default-input))))
+    (assert-equalp 0 result)))
+
+(deftest 04/test-a (04/aoc)
+  (let ((result (04/part-a (04/parse-input "inputs/04.txt"))))
+    (assert-equalp 0 result)))
+
+(deftest 04/test-b (04/aoc)
+  (let ((result (04/part-b (04/parse-input "inputs/04.txt"))))
+    (assert-equalp 0 result)))
+
+(defun 04/run-tests () (run-suite '04/aoc))