day02.lisp (363B)
1 (in-package #:adventofcode2022/test) 2 3 (define-constant +testdata-day02+ "A Y 4 B X 5 C Z 6 " 7 :test 'equal) 8 9 (def-test day02-task1 () 10 (is-true 11 (= 15 12 (run-task 2 1 13 (make-string-input-stream +testdata-day02+))))) 14 15 (def-test day02-task2 () 16 (is-true 17 (= 12 18 (run-task 2 2 19 (make-string-input-stream +testdata-day02+)))))