fixing poor keywordizing #93

oliyh · Aug 26, 2020 · 02b34f2 · 02b34f2
1 parent 74b6d50
commit 02b34f2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/core/src/martian/openapi.cljc b/core/src/martian/openapi.cljc
@@ -115,7 +115,7 @@
           ;; which aren't the associated OPTIONS call.
           :when (and (:operationId definition)
                      (not= :options method))
-          :let [parameters (group-by :in (:parameters definition))
+          :let [parameters (group-by (comp keyword :in) (:parameters definition))
                 body       (process-body (:requestBody definition) components (:encodes content-types))
                 responses  (process-responses (:responses definition) components (:decodes content-types))]]
       {:path-parts         (vec (tokenise-path url))

diff --git a/core/test/martian/openapi_test.cljc b/core/test/martian/openapi_test.cljc
@@ -61,8 +61,8 @@
                first
                (select-keys [:consumes :produces]))))))
 
-(deftest openapi-two-test
-  (testing "parses parameters which are different somehow"
+(deftest openapi-parameters-test
+  (testing "parses parameters"
     (is (= {:description nil,
             :method :get,
             :produces ["application/json"],