1 (defpackage #:aoc-test/day-18
2   (:use #:cl #:lisp-unit2 #:aoc/day-18))
3 (in-package #:aoc-test/day-18)
4 
5 (define-test test-day-18
6     ()
7   (let ((*width* 7)
8         (*height* 7)
9         (*bytes-falling* 12))
10     (multiple-value-bind (task-1 task-2)
11         (aoc:run-day 18 "5,4
12 4,2
13 4,5
14 3,0
15 2,1
16 6,3
17 2,4
18 1,5
19 0,6
20 3,3
21 2,6
22 5,1
23 1,2
24 5,5
25 2,5
26 6,5
27 1,4
28 0,4
29 6,4
30 1,1
31 6,1
32 1,0
33 0,5
34 1,6
35 2,0")
36       (assert= 22 task-1)
37       (assert-string-equal "6,1" task-2))))