diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/suite.lisp | 17 |
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*)))) |