day-19.lisp (342B)
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)))