From 1a03751a1968eadf0be4397fd6940a39774aa681 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 14 Dec 2021 00:49:28 +0000 Subject: Add tests --- test/02.lisp | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 test/02.lisp (limited to 'test/02.lisp') diff --git a/test/02.lisp b/test/02.lisp new file mode 100644 index 0000000..fd1a7ea --- /dev/null +++ b/test/02.lisp @@ -0,0 +1,34 @@ +(ql:quickload "clunit") +(load "../src/02.lisp") + +(use-package :clunit) + +(defsuite 02/aoc ()) + +(defvar 02/default-input nil) + +(setf 02/default-input + '("forward 5" + "down 5" + "forward 8" + "up 3" + "down 8" + "forward 2")) + +(deftest 02/test-ex-a (02/aoc) + (let ((result (02/part-a (02/parse-input-direct 02/default-input)))) + (assert-equalp 150 result))) + +(deftest 02/test-ex-b (02/aoc) + (let ((result (02/part-b (02/parse-input-direct 02/default-input)))) + (assert-equalp 900 result))) + +(deftest 02/test-a (02/aoc) + (let ((result (02/part-a (02/parse-input "../inputs/02.txt")))) + (assert-equalp 1561344 result))) + +(deftest 02/test-b (02/aoc) + (let ((result (02/part-b (02/parse-input "../inputs/02.txt")))) + (assert-equalp 1848454425 result))) + +(run-suite '02/aoc) -- cgit