diff --git a/modules/reitit-spec/src/reitit/coercion/spec.cljc b/modules/reitit-spec/src/reitit/coercion/spec.cljc index 48d346d8..41e64fe6 100644 --- a/modules/reitit-spec/src/reitit/coercion/spec.cljc +++ b/modules/reitit-spec/src/reitit/coercion/spec.cljc @@ -110,7 +110,7 @@ (into-spec model name)) (-open-model [_ spec] spec) (-encode-error [_ error] - (let [problems (::s/problems error)] + (let [problems (-> error :problems ::s/problems)] (-> error (update :spec (comp str s/form)) (assoc :problems (mapv #(update % :pred stringify-pred) problems))))) diff --git a/test/cljc/reitit/ring_coercion_test.cljc b/test/cljc/reitit/ring_coercion_test.cljc index 3bc7b4bc..c152c00b 100644 --- a/test/cljc/reitit/ring_coercion_test.cljc +++ b/test/cljc/reitit/ring_coercion_test.cljc @@ -95,7 +95,9 @@ (app valid-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)))) (testing "invalid response"