day18.lisp (430B)
1 (in-package #:adventofcode2022/test) 2 3 (define-constant +testdata-day18+ "2,2,2 4 1,2,2 5 3,2,2 6 2,1,2 7 2,3,2 8 2,2,1 9 2,2,3 10 2,2,4 11 2,2,6 12 1,2,5 13 3,2,5 14 2,1,5 15 2,3,5" 16 :test 'equal) 17 18 (def-test day18-task1 () 19 (is-true 20 (= 64 21 (run-task 18 1 22 (make-string-input-stream +testdata-day18+))))) 23 24 (def-test day18-task2 () 25 (is-true 26 (= 58 27 (run-task 18 2 28 (make-string-input-stream +testdata-day18+)))))