day-23.lisp (475B)
1 (defpackage #:aoc-test/day-23 2 (:use #:cl #:lisp-unit2) 3 (:import-from #:aoc/day-23)) 4 (in-package #:aoc-test/day-23) 5 6 (define-test test-day-23 7 () 8 (multiple-value-bind (task-1 task-2) 9 (aoc:run-day 23 "kh-tc 10 qp-kh 11 de-cg 12 ka-co 13 yn-aq 14 qp-ub 15 cg-tb 16 vc-aq 17 tb-ka 18 wh-tc 19 yn-cg 20 kh-ub 21 ta-co 22 de-co 23 tc-td 24 tb-wq 25 wh-td 26 ta-ka 27 td-qp 28 aq-cg 29 wq-ub 30 ub-vc 31 de-ta 32 wq-aq 33 wq-vc 34 wh-yn 35 ka-de 36 kh-ta 37 co-tc 38 wh-qp 39 tb-vc 40 td-yn") 41 (assert= 7 task-1) 42 (assert-string= "co,de,ka,ta" task-2)))