From 1a795e9ccefdcc086d4c890ec5ed527c786e0cf1 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 14 Dec 2021 01:23:19 +0000 Subject: Add inputs to 04 and fix tests --- test/04.lisp | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 test/04.lisp (limited to 'test/04.lisp') diff --git a/test/04.lisp b/test/04.lisp new file mode 100644 index 0000000..cccaf4e --- /dev/null +++ b/test/04.lisp @@ -0,0 +1,42 @@ +(use-package :clunit) + +(defsuite 04/aoc (aoc)) + +(defvar 04/default-input + '("7,4,9,5,11,17,23,2,0,14,21,24,10,16,13,6,15,25,12,22,18,20,8,19,3,26,1" + "" + "22 13 17 11 0" + " 8 2 23 4 24" + "21 9 14 16 7" + " 6 10 3 18 5" + " 1 12 20 15 19" + "" + " 3 15 0 2 22" + " 9 18 13 17 5" + "19 8 7 25 23" + "20 11 10 24 4" + "14 21 16 12 6" + "" + "14 21 17 24 4" + "10 16 15 9 19" + "18 8 23 26 20" + "22 11 13 6 5" + " 2 0 12 3 7")) + +(deftest 04/test-ex-a (04/aoc) + (let ((result (04/part-a (04/parse-input-direct 04/default-input)))) + (assert-equalp 4512 result))) + +(deftest 04/test-ex-b (04/aoc) + (let ((result (04/part-b (04/parse-input-direct 04/default-input)))) + (assert-equalp 0 result))) + +(deftest 04/test-a (04/aoc) + (let ((result (04/part-a (04/parse-input "inputs/04.txt")))) + (assert-equalp 0 result))) + +(deftest 04/test-b (04/aoc) + (let ((result (04/part-b (04/parse-input "inputs/04.txt")))) + (assert-equalp 0 result))) + +(defun 04/run-tests () (run-suite '04/aoc)) -- cgit