luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-17 08:21:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #275 from kwrooijen/fix-coercion-spec-problems-key

Browse source 
Properly access ::s/problems key in coercion-spec
This commit is contained in:
Tommi Reiman 2019-05-20 19:39:14 +03:00 committed by GitHub
commit 56a5a4a56f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
modules/reitit-spec/src/reitit/coercion/spec.cljc
View file

@ -110,7 +110,7 @@
(into-spec model name)) (into-spec model name))
(-open-model [_ spec] spec) (-open-model [_ spec] spec)
(-encode-error [_ error] (-encode-error [_ error]
(let [problems (::s/problems error)] (let [problems (-> error :problems ::s/problems)]
(-> error (-> error
(update :spec (comp str s/form)) (update :spec (comp str s/form))
(assoc :problems (mapv #(update % :pred stringify-pred) problems))))) (assoc :problems (mapv #(update % :pred stringify-pred) problems)))))

4
test/cljc/reitit/ring_coercion_test.cljc
View file

@ -95,7 +95,9 @@
(app valid-request)))) (app valid-request))))
(testing "invalid request" (testing "invalid request"
(let [{:keys [status]} (app invalid-request)] (let [{:keys [status body]} (app invalid-request)
problems (:problems body)]
(is (= 1 (count problems)))
(is (= 400 status)))) (is (= 400 status))))
(testing "invalid response" (testing "invalid response"