move test to separate system
This commit is contained in:
parent
5540e02509
commit
cd1fd7f9c6
1 changed files with 16 additions and 0 deletions
16
test/2018/day06-test.lisp
Normal file
16
test/2018/day06-test.lisp
Normal 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))))
|
Loading…
Reference in a new issue