25 lines
472 B
Common Lisp
25 lines
472 B
Common Lisp
|
|
(defpackage :aoc/2018/07/tests
|
|
(:use :cl :aoc :aoc/tests :parachute :aoc/2018/07)
|
|
(:export
|
|
#:suite-2018-07
|
|
#:test-part1
|
|
#:test-step-size
|
|
))
|
|
|
|
(in-package :aoc/2018/07/tests)
|
|
|
|
(define-test suite-2018-07
|
|
;:parent suite-2018
|
|
)
|
|
|
|
|
|
(define-test test-part1
|
|
:parent suite-2018-07
|
|
(true (equal "CABDFE" (part1 sample-data))))
|
|
|
|
(define-test test-step-size
|
|
:parent suite-2018-07
|
|
(true (equal 63 (step-time 'C)))
|
|
(true (equal 3 (step-time 'C 0)))
|
|
)
|