1 (defpackage #:aoc-test/day-15
2   (:use #:cl #:lisp-unit2)
3   (:import-from #:aoc/day-15))
4 (in-package #:aoc-test/day-15)
5 
6 (define-test test-day-15
7     ()
8   (assert= 2028 (aoc:run-day 15 "########
9 #..O.O.#
10 ##@.O..#
11 #...O..#
12 #.#.O..#
13 #...O..#
14 #......#
15 ########
16 
17 <^^>>>vv<v>>v<<"))
18   (multiple-value-bind (task-1 task-2)
19       (aoc:run-day 15 "##########
20 #..O..O.O#
21 #......O.#
22 #.OO..O.O#
23 #..O@..O.#
24 #O#..O...#
25 #O..O..O.#
26 #.OO.O.OO#
27 #....O...#
28 ##########
29 
30 <vv>^<v^>v>^vv^v>v<>v^v<v<^vv<<<^><<><>>v<vvv<>^v^>^<<<><<v<<<v^vv^v>^
31 vvv<<^>^v^^><<>>><>^<<><^vv^^<>vvv<>><^^v>^>vv<>v<<<<v<^v>^<^^>>>^<v<v
32 ><>vv>v^v^<>><>>>><^^>vv>v<^^^>>v^v^<^^>v^^>v^<^v>v<>>v^v^<v>v^^<^^vv<
33 <<v<^>>^^^^>>>v^<>vvv^><v<<<>^^^vv^<vvv>^>v<^^^^v<>^>vvvv><>>v^<<^^^^^
34 ^><^><>>><>^^<<^^v>>><^<v>^<vv>>v>>>^v><>^v><<<<v>>v<v<v>vvv>^<><<>^><
35 ^>><>^v<><^vvv<^^<><v<<<<<><^v<<<><<<^^<v<^^^><^>>^<v^><<<^>>^v<v^v<v^
36 >^>>^v>vv>^<<^v<>><<><<v<<v><>v<^vv<<<>^^v^>^^>>><<^v>>v^v><^^>>^<>vv^
37 <><^^>^^^<><vvvvv^v<v<<>^v<v>v<<^><<><<><<<^^<<<^<<>><<><^^^>^^<>^>v<>
38 ^^>vv<^v^v<vv>^<><v<^v>^^^>>>^^vvv^>vvv<>>>^<^>>>>>^<<^v>^vvv<>^<><<v>
39 v^^>>><<^^<>>^v^<v^vv<>v^<<>^<^v^v><^<<<><<^<v><v<>vv>>v><v^<vv<>v^<<^")
40     (assert= 10092 task-1)
41     (assert= 9021 task-2))
42   (assert= 618 (nth-value 1 (aoc:run-day 15 "#######
43 #...#.#
44 #.....#
45 #..OO@#
46 #..O..#
47 #.....#
48 #######
49 
50 <vv<<^^<<^^"))))