1 files changed, 17 insertions, 0 deletions
diff --git a/tests/suite.lisp b/tests/suite.lisp
new file mode 100644
index 0000000..11ab4af
--- /dev/null
+++ b/tests/suite.lisp
@@ -0,0 +1,17 @@
+(defpackage #:hito/tests
+  (:use #:cl #:fiveam))
+
+(in-package #:hito/tests)
+
+(def-suite hito-suite
+  :description "HITO test suite.")
+
+(in-suite hito-suite)
+
+(test server-starts-and-stops
+  "Verify the server can start and stop cleanly."
+  (let ((acceptor (hito:start :port 19876)))
+    (is (not (null acceptor)))
+    (is (not (null hito:*app*)))
+    (hito:stop)
+    (is (null hito:*app*))))