From 1a03751a1968eadf0be4397fd6940a39774aa681 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Tue, 14 Dec 2021 00:49:28 +0000
Subject: Add tests

---
 test/03.lisp | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 test/03.lisp

(limited to 'test/03.lisp')

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