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 | |
parent | 8e27d45866ac88f744fec4a9c1499efc0af38847 (diff) | |
download | aoc21-1a795e9ccefdcc086d4c890ec5ed527c786e0cf1.tar.gz aoc21-1a795e9ccefdcc086d4c890ec5ed527c786e0cf1.zip |
Add inputs to 04 and fix tests
Diffstat (limited to 'test')
-rw-r--r-- | test/01.lisp | 24 | ||||
-rw-r--r-- | test/02.lisp | 16 | ||||
-rw-r--r-- | test/03.lisp | 28 | ||||
-rw-r--r-- | test/04.lisp | 42 |
4 files changed, 73 insertions, 37 deletions
diff --git a/test/01.lisp b/test/01.lisp index 46bb1b5..a21cac1 100644 --- a/test/01.lisp +++ b/test/01.lisp @@ -2,19 +2,17 @@ (defsuite 01/aoc (aoc)) -(defvar 01/default-input nil) - -(setf 01/default-input - '("199" - "200" - "208" - "210" - "200" - "207" - "240" - "269" - "260" - "263")) +(defvar 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")))) diff --git a/test/02.lisp b/test/02.lisp index 631dd92..9070517 100644 --- a/test/02.lisp +++ b/test/02.lisp @@ -2,15 +2,13 @@ (defsuite 02/aoc (aoc)) -(defvar 02/default-input nil) - -(setf 02/default-input - '("forward 5" - "down 5" - "forward 8" - "up 3" - "down 8" - "forward 2")) +(defvar 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)))) diff --git a/test/03.lisp b/test/03.lisp index 000ece8..cc8085f 100644 --- a/test/03.lisp +++ b/test/03.lisp @@ -2,21 +2,19 @@ (defsuite 03/aoc (aoc)) -(defvar 03/default-input nil) - -(setf 03/default-input - '("00100" - "11110" - "10110" - "10111" - "10101" - "01111" - "00111" - "11100" - "10000" - "11001" - "00010" - "01010")) +(defvar 03/default-input + '("00100" + "11110" + "10110" + "10111" + "10101" + "01111" + "00111" + "11100" + "10000" + "11001" + "00010" + "01010")) (deftest 03/test-ex-a (03/aoc) (let ((result (03/part-a (03/parse-input-direct 03/default-input)))) 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)) |