From cd1fd7f9c63afec57a568b77f373bef88883f248 Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Sat, 23 Nov 2024 14:31:24 +0100
Subject: [PATCH] move test to separate system

---
 test/2018/day06-test.lisp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 test/2018/day06-test.lisp

diff --git a/test/2018/day06-test.lisp b/test/2018/day06-test.lisp
new file mode 100644
index 0000000..1d21af8
--- /dev/null
+++ b/test/2018/day06-test.lisp
@@ -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))))