Blob


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