diff options
author | Yann Herklotz <git@yannherklotz.com> | 2021-12-14 01:23:19 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2021-12-14 01:23:19 +0000 |
commit | 1a795e9ccefdcc086d4c890ec5ed527c786e0cf1 (patch) | |
tree | b3b0dd9a5f6c7797687708e43ebba9d335974615 /test/04.lisp | |
parent | 8e27d45866ac88f744fec4a9c1499efc0af38847 (diff) | |
download | aoc21-1a795e9ccefdcc086d4c890ec5ed527c786e0cf1.tar.gz aoc21-1a795e9ccefdcc086d4c890ec5ed527c786e0cf1.zip |
Add inputs to 04 and fix tests
Diffstat (limited to 'test/04.lisp')
-rw-r--r-- | test/04.lisp | 42 |
1 files changed, 42 insertions, 0 deletions
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)) |