day-8.lisp (417B)
1 (defpackage #:aoc-test/day-8 2 (:use #:cl #:lisp-unit2) 3 (:import-from #:aoc/day-8)) 4 (in-package #:aoc-test/day-8) 5 6 (define-test test-day-8 7 () 8 (multiple-value-bind (task-1 task-2) 9 (aoc:run-day 8 "............ 10 ........0... 11 .....0...... 12 .......0.... 13 ....0....... 14 ......A..... 15 ............ 16 ............ 17 ........A... 18 .........A.. 19 ............ 20 ............") 21 (assert= 14 task-1) 22 (assert= 34 task-2)))