16 lines
428 B
Common Lisp
16 lines
428 B
Common Lisp
(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))))
|