basics of testing framework

shell.nix

@@ -12,6 +12,8 @@ let
     cl-smtp
     log4cl
     cl_plus_ssl
+    fiveam
+    slite
     pkgs.openssl
     pkgs.openssl.out
     pkgs.openssl.dev

src/main.lisp

@@ -7,6 +7,7 @@
 (asdf:load-system 'lass)
 (asdf:load-system 'cl-smtp)
 (asdf:load-system 'log4cl)
+(asdf:load-system 'fiveam)
 
 (defpackage tfcserver
   (:use :cl :com.inuoe.jzon :spinneret :serapeum))
@@ -539,3 +540,6 @@ with the image attached"
           (hunchentoot:stop *server*)
           (uiop:quit)))
     (error (c) (format t "Woops, an unknown error occured:~&~a~&" c))))
+
+(fiveam:test testing-things
+   (fiveam:is (= 2 (+ 1 1))))