added "clack.test" for unit testing Clack Applications. and rewrote "…

…clack.test.suite" with it.

clack.asd

@@ -51,7 +51,8 @@
                     ((:file "hunchentoot")
                      #+(or allegro cmu lispworks sbcl)
                      (:file "apache")))
-                   (:file "test/suite")))
+                   (:file "test")
+                   (:file "test/suite" :depends-on ("test"))))
                  (:module "contrib"
                   :depends-on ("core")
                   :serial t

src/core/test.lisp

@@ -0,0 +1,48 @@
+#|
+  This file is a part of Clack package.
+  URL: http://github.com/fukamachi/clack
+  Copyright (c) 2011 Eitarow Fukamachi <e.arrows@gmail.com>
+
+  Clack is freely distributable under the LLGPL License.
+|#
+
+#|
+  Testing Clack Applications.
+
+  Author: Eitarow Fukamachi (e.arrows@gmail.com)
+|#
+
+(in-package :cl-user)
+
+(defpackage :clack.test
+  (:use :cl
+        :cl-test-more)
+  (:export :test-app
+           :define-app-test
+           :*clack-test-handler*
+           :*clack-test-port*))
+
+(in-package :clack.test)
+
+(defvar *clack-test-handler* 'clack.handler.hunchentoot
+  "Backend Handler to run tests on. String or Symbol are allowed.")
+
+(defvar *clack-test-port* 8080
+  "HTTP port number of Handler.")
+
+(defun test-app (desc app client)
+  "Test Clack Application."
+  (let* ((handler
+          (or (find-package *clack-test-handler*)
+              (error "Handler package is not found. Forgot to load it?: ~A"
+                     *clack-test-handler*)))
+         (acceptor (funcall (intern "RUN" handler)
+                            app :port *clack-test-port* :debug t)))
+    (when desc (diag desc))
+    (unwind-protect
+        (funcall client)
+      (funcall (intern "STOP" handler) acceptor))))
+
+(defmacro define-app-test (desc app client)
+  `(cl-test-more::deftest ,(intern desc)
+     (test-app nil ,app ,client)))