blob: fd1a7ea784a8b57a37c7856c4d8ff4c302625a16 (
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
32
33
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)
|