move test to separate system

This commit is contained in:
Peter Tillemans 2024-11-23 14:31:24 +01:00
parent 5540e02509
commit cd1fd7f9c6

16
test/2018/day06-test.lisp Normal file
View file

@ -0,0 +1,16 @@
(defpackage :aoc/2018/06
(:use :cl :aoc :parachute))
(in-package :aoc/2018/06)
(define-test suite-2018-06)
(define-test+run find-top-left
:parent suite-2018-06
(let ((result (top-left sample-points)))
(true (equalp (make-point-2d :x 1 :y 1) result))))
(define-test+run find-bottom-right
:parent suite-2018-06
(let ((result (bottom-right sample-points)))
(true (equalp (make-point-2d :x 8 :y 9) result))))