1 (defpackage #:aoc-test/day-8
2   (:use #:cl #:lisp-unit2)
3   (:import-from #:aoc/day-8))
4 (in-package #:aoc-test/day-8)
5 
6 (define-test test-day-8
7     ()
8   (multiple-value-bind (task-1 task-2)
9       (aoc:run-day 8 "............
10 ........0...
11 .....0......
12 .......0....
13 ....0.......
14 ......A.....
15 ............
16 ............
17 ........A...
18 .........A..
19 ............
20 ............")
21     (assert= 14 task-1)
22     (assert= 34 task-2)))