day04.lisp (396B)
1 (in-package #:adventofcode2022/test) 2 3 (define-constant +testdata-day04+ "2-4,6-8 4 2-3,4-5 5 5-7,7-9 6 2-8,3-7 7 6-6,4-6 8 2-6,4-8" 9 :test 'equal) 10 11 (def-test day04-task1 () 12 (is-true 13 (= 2 14 (run-task 4 1 15 (make-string-input-stream +testdata-day04+))))) 16 17 (def-test day04-task1 () 18 (is-true 19 (= 4 20 (run-task 4 2 21 (make-string-input-stream +testdata-day04+)))))