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