blob: 631dd9280edc743629774bb2b1cee1fff3690a00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(use-package :clunit)
(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"))
(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)))
(defun 02/run-tests () (run-suite '02/aoc))
|
