(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))) )