1 files changed, 39 insertions, 0 deletions
diff --git a/test/03.lisp b/test/03.lisp
new file mode 100644
index 0000000..52ea534
--- /dev/null
+++ b/test/03.lisp
@@ -0,0 +1,39 @@
+(ql:quickload "clunit")
+
+(use-package :clunit)
+
+(defsuite 03/aoc ())
+
+(defvar 03/default-input nil)
+
+(setf 03/default-input
+      '("00100"
+        "11110"
+        "10110"
+        "10111"
+        "10101"
+        "01111"
+        "00111"
+        "11100"
+        "10000"
+        "11001"
+        "00010"
+        "01010"))
+
+(deftest 03/test-ex-a (03/aoc)
+  (let ((result (03/part-a (03/parse-input-direct 03/default-input))))
+    (assert-equalp 198 result)))
+
+(deftest 03/test-ex-b (03/aoc)
+  (let ((result (03/part-b (03/parse-input-direct 03/default-input))))
+    (assert-equalp 230 result)))
+
+(deftest 03/test-a (03/aoc)
+  (let ((result (03/part-a (03/parse-input "../inputs/03.txt"))))
+    (assert-equalp 3912944 result)))
+
+(deftest 03/test-b (03/aoc)
+  (let ((result (03/part-b (03/parse-input "../inputs/03.txt"))))
+    (assert-equalp 4996233 result)))
+
+(defun 03/run-tests () (run-suite '03/aoc))