Blob


1 (defpackage #:aoc-test/day-12
2 (:use #:cl #:lisp-unit2)
3 (:import-from #:aoc/day-12))
4 (in-package #:aoc-test/day-12)
6 (define-test test-day-12
7 ()
8 (multiple-value-bind (task-1 task-2)
9 (aoc:run-day 12 "AAAA
10 BBCD
11 BBCC
12 EEEC")
13 (assert= 140 task-1)
14 (assert= 80 task-2))
15 (multiple-value-bind (task-1 task-2)
16 (aoc:run-day 12 "OOOOO
17 OXOXO
18 OOOOO
19 OXOXO
20 OOOOO")
21 (assert= 772 task-1)
22 (assert= 436 task-2))
23 (assert= 1930 (aoc:run-day 12 "RRRRIICCFF
24 RRRRIICCCF
25 VVRRRCCFFF
26 VVRCCCJFFF
27 VVVVCJJCFE
28 VVIVCCJJEE
29 VVIIICJJEE
30 MIIIIIJJEE
31 MIIISIJEEE
32 MMMISSJEEE"))
33 (assert= 236 (nth-value 1 (aoc:run-day 12 "EEEEE
34 EXXXX
35 EEEEE
36 EXXXX
37 EEEEE")))
38 (assert= 368 (nth-value 1 (aoc:run-day 12 "AAAAAA
39 AAABBA
40 AAABBA
41 ABBAAA
42 ABBAAA
43 AAAAAA"))))