facts for #159, work ok with legal schema types. Primitive arrays depend on metosin/ring-swagger#56

Author: ikitommi

test/compojure/api/integration_test.clj

@@ -1192,3 +1192,47 @@
                                   {"/normal" irrelevant
                                    "/extra" irrelevant
                                    "/runtime" irrelevant})})))
+
+;;
+;; with supported schemas
+;;
+
+(s/defschema Foo {:a s/Str})
+
+(defapi with-defapi
+  (swagger-docs)
+  (GET* "/foo" []
+    :return Foo
+    (ok {:a "foo"})))
+
+(defn with-api []
+  (api
+    (swagger-docs)
+    (GET* "/foo" []
+      :return Foo
+      (ok {:a "foo"}))))
+
+(fact "defapi & api define same results with supported schema types #159"
+  (get-spec with-defapi) => (get-spec (with-api)))
+
+;;
+;; with unsupported schemas
+;;
+
+(s/defschema Foo2 [s/Keyword])
+
+(defapi with-defapi2
+  (swagger-docs)
+  (GET* "/foo" []
+    :return Foo2
+    (ok [:foo])))
+
+(defn with-api2 []
+  (api
+    (swagger-docs)
+    (GET* "/foo" []
+      :return Foo2
+      (ok [:foo]))))
+
+(fact "defapi & api define different results with unsuported schema types #159"
+  (get-spec with-defapi2) =not=> (get-spec (with-api2)))