Add more tests of lack-builder, mainly for old Clack middlewares.

src/builder.lisp

@@ -56,7 +56,7 @@
           (if (clack-middleware-symbol-p (car mw))
               `(lambda (,app)
                  (funcall (intern (string :wrap) :clack)
-                          (make-instance ',mw ,@(cdr mw))
+                          (make-instance ',(car mw) ,@(cdr mw))
                           ,app))
               ;; Normal form
               (let ((res (gensym "RES")))

t-lack.asd

@@ -12,6 +12,7 @@
   :author "Eitaro Fukamachi"
   :license "LLGPL"
   :depends-on (:lack
+               :clack
                :prove)
   :components ((:module "t"
                 :components

t/builder.lisp

@@ -5,7 +5,7 @@
         :lack.builder))
 (in-package :t.lack.builder)
 
-(plan 11)
+(plan 12)
 
 (defvar *app*
   (lambda (env)
@@ -84,4 +84,14 @@
               "Got: sample"
               "Can work.")))
 
+(subtest "Old Clack middlewares"
+  (let ((app
+          (builder
+           (clack.middleware.accesslog:<clack-middleware-accesslog>
+            :logger (lambda (output) (format t "~&~A~%" output)))
+           clack.middleware.session:<clack-middleware-session>
+           *app*)))
+    (is-type app 'function
+             "Can build with old Clack middlewares")))
+
 (finalize)