add regression test for anonymous models

Author: ikitommi

test/compojure/api/core_integration_test.clj

@@ -494,6 +494,34 @@
                                      :type "void"}]
                        :path "/user"}]})))
 
+
+(facts "swagger-docs with Return and Body models"
+  (defapi api
+    (swagger-docs)
+    (swaggered +name+
+      (POST* "/echo" []
+        :return {:a String}
+        :body [_ {:a String}]
+        identity)))
+
+  (fact "api-docs"
+    (let [[status body] (get* api (str "/api/api-docs/" +name+) {})]
+
+      (fact "are found"
+        status => 200)
+
+      (let [operation           (-> body :apis first :operations first)
+            body-parameter-type (-> operation :parameters first :type keyword)
+            return-type         (-> operation :type keyword)]
+
+        (fact "generated body-param is found in Models"
+          body-parameter-type => truthy
+          (-> body :models body-parameter-type) => truthy)
+
+        (fact "generated return-param is found in Models"
+          return-type => truthy
+          (-> body :models return-type) => truthy)))))
+
 (fact "swagger-docs works with the :middlewares"
   (defapi api
     (swagger-docs)

test/compojure/api/swagger_test.clj

@@ -2,7 +2,8 @@
   (:require [compojure.api.core :refer :all]
             [compojure.api.swagger :refer :all]
             [compojure.core :refer :all]
-            [midje.sweet :refer :all]))
+            [midje.sweet :refer :all]
+            [schema.core :as s]))
 
 (fact "extracting compojure paths"