1 (defpackage #:aoc-test/day-19
2   (:use #:cl #:lisp-unit2)
3   (:import-from #:aoc/day-19))
4 (in-package #:aoc-test/day-19)
5 
6 (define-test test-day-19
7     ()
8   (multiple-value-bind (task-1 task-2)
9       (aoc:run-day 19 "r, wr, b, g, bwu, rb, gb, br
10 
11 brwrr
12 bggr
13 gbbr
14 rrbgbr
15 ubwu
16 bwurrg
17 brgr
18 bbrgwb")
19     (assert= 6 task-1)
20     (assert= 16 task-2)))