31 lines
610 B
Common Lisp
31 lines
610 B
Common Lisp
|
(defpackage :aoc/2024/08/tests
|
||
|
|
(:use :cl :aoc :aoc/tests :aoc/2024/tests :parachute :aoc/2024/08))
|
||
|
|
|
||
|
|
(in-package :aoc/2024/08/tests)
|
||
|
|
|
||
|
|
(define-test suite-2024-08
|
||
|
|
;:parent suite-2024
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(define-test+run test-part1
|
||
|
|
:parent suite-2024-08
|
||
|
|
(true (equalp '( '()) (part1 sample-data))))
|
||
|
|
|
||
|
|
(define-test+run test-part2
|
||
|
|
:parent suite-2024-08
|
||
|
|
(true
|
||
|
|
(equalp "34" (part2 sample-data)))
|
||
|
|
(true
|
||
|
|
(equalp "9" (part2 sample-data2))))
|
||
|
|
|
||
|
|
|
||
|
|
(define-test test-parse-line
|
||
|
|
:parent suite-2024-08
|
||
|
|
(is equalp '() (parse-line (first sample-data)))
|
||
|
|
(is equalp '((8 #\0)) (parse-line (second sample-data)))
|
||
|
|
)
|
||
|
|
|
||
|
|
|