1 files changed, 41 insertions, 0 deletions
diff --git a/test/01.lisp b/test/01.lisp
new file mode 100644
index 0000000..aa02b7d
--- /dev/null
+++ b/test/01.lisp
@@ -0,0 +1,41 @@
+(ql:quickload "clunit")
+(load "../src/01.lisp")
+
+(use-package :clunit)
+
+(defsuite aoc-01 ())
+
+(defvar 01/default-input nil)
+
+(setf 01/default-input
+      '("199"
+        "200"
+        "208"
+        "210"
+        "200"
+        "207"
+        "240"
+        "269"
+        "260"
+        "263"))
+
+;;(time (format t "part 1: ~a~%" (part-a (parse-input "../inputs/01.txt"))))
+;;(time (format t "part 1: ~a~%" (part-b (parse-input "../inputs/01.txt"))))
+
+(deftest 01/test-ex-a (aoc-01)
+  (let ((result (01/part-a (01/parse-input-direct 01/default-input))))
+    (assert-equalp 7 result)))
+
+(deftest 01/test-ex-b (aoc-01)
+  (let ((result (01/part-b (01/parse-input-direct 01/default-input))))
+    (assert-equalp 5 result)))
+
+(deftest 01/test-a (aoc-01)
+  (let ((result (01/part-a (01/parse-input "../inputs/01.txt"))))
+    (assert-equalp 1451 result)))
+
+(deftest 01/test-b (aoc-01)
+  (let ((result (01/part-b (01/parse-input "../inputs/01.txt"))))
+    (assert-equalp 1395 result)))
+
+(run-suite 'aoc-01)