day-22.lisp (318B)
1 (defpackage #:aoc-test/day-22 2 (:use #:cl #:lisp-unit2)) 3 (in-package #:aoc-test/day-22) 4 5 (define-test test-day-22 6 () 7 (multiple-value-bind (task-1 task-2) 8 (aoc:run-day 22 "1,0,1~1,2,1 9 0,0,2~2,0,2 10 0,2,3~2,2,3 11 0,0,4~0,2,4 12 2,0,5~2,2,5 13 0,1,6~2,1,6 14 1,1,8~1,1,9") 15 (assert= 5 task-1) 16 (assert= 7 task-2)))