tests/suite.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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*))))