Remove middleware macrotime assertion and test mw with anon/lambda fn

It is impossible to validate on macro expansion time if given code will
evaluate to a function. Just drop the assertion. Code will break anyway.

Fixes #208

Author: Deraen

src/compojure/api/core.clj

@@ -41,7 +41,6 @@
   do not match the request uri. Be careful with middlewares that
   have side-effects."
   [middleware & body]
-  (mw/assert-middleware middleware)
   (let [routes? (> (count body) 1)]
     `(let [body# ~(if routes? `(routes ~@body) (first body))
            wrap-mw# (mw/compose-middleware ~middleware)]

src/compojure/api/meta.clj

@@ -254,7 +254,6 @@
 
 ; Applies the given vector of middlewares to the route
 (defmethod restructure-param :middleware [_ middleware acc]
-  (mw/assert-middleware middleware)
   (update-in acc [:middleware] into middleware))
 
 ; Bind to stuff in request components using letk syntax

src/compojure/api/middleware.clj

@@ -240,12 +240,6 @@
          wrap-nested-params
          wrap-params))))
 
-(defn assert-middleware [middleware]
-  (assert (and (vector? middleware) (every? #(or (and (vector? %1) (ifn? (first %1))) (ifn? %1)) middleware))
-          (str "Middleware vector must only contain\n"
-               "a) fully configured middleware (function) or\n"
-               "b) vectors containing middleware function and additional parameters for it.")))
-
 (defn middleware-fn [middleware]
   (if (vector? middleware)
     (let [[f & arguments] middleware]

test/compojure/api/integration_test.clj

@@ -84,10 +84,10 @@
               (middleware [middleware* [middleware* 2]]
                 (context "/middlewares" []
                   (GET "/simple" req (reply-mw* req))
-                  (middleware [[middleware* 3] [middleware* 4]]
+                  (middleware [#(middleware* % 3) [middleware* 4]]
                     (GET "/nested" req (reply-mw* req))
                     (GET "/nested-declared" req
-                      :middleware [[middleware* 5] [middleware* 6]]
+                      :middleware [(fn [handler] (middleware* handler 5)) [middleware* 6]]
                       (reply-mw* req))))))]
 
     (fact "are applied left-to-right"
@@ -1126,16 +1126,6 @@
     (fact "throwing exceptions"
       (api {:api {:invalid-routes-fn routes/fail-on-invalid-child-routes}} invalid-routes)) => throws))
 
-(fact "old middleware format"
-  (macroexpand '(middleware [(middleware* 5)]
-                            (GET "/normal" [] (ok))))
-  => (throws AssertionError)
-
-  (macroexpand '(GET "/normal" []
-                  :middleware [(middleware* 5)]
-                  (ok)))
-  => (throws AssertionError))
-
 (defmethod compojure.api.meta/restructure-param ::deprecated-middlewares-test [_ _ acc]
   (assoc acc :middlewares [(constantly nil)]))