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