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