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