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/01.lisp | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 test/01.lisp

(limited to 'test/01.lisp')

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