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

Ensure that #145 works

Browse source
This commit is contained in:
Tommi Reiman 2018-09-22 21:19:44 +03:00
parent 34827ccf1c
commit ec8727394d
2 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/cljc/reitit/coercion_test.cljc
View file

@ -54,3 +54,17 @@
(is (= nil (coercion/coerce! m)))) (is (= nil (coercion/coerce! m))))
(let [m (r/match-by-path r "/none/kikka/abba")] (let [m (r/match-by-path r "/none/kikka/abba")]
(is (= nil (coercion/coerce! m)))))))) (is (= nil (coercion/coerce! m))))))))
(defn match-by-path-and-coerce! [router path]
(if-let [match (r/match-by-path router path)]
(assoc match :parameters (coercion/coerce! match))))
(deftest data-spec-example-test
(let [router (r/router
["/:company/users/:user-id" {:name ::user-view
:coercion reitit.coercion.spec/coercion
:parameters {:path {:company string?
:user-id int?}}}]
{:compile coercion/compile-request-coercers})]
(is (= {:path {:user-id 123, :company "metosin"}}
(:parameters (match-by-path-and-coerce! router "/metosin/users/123"))))))

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

@ -1,6 +1,7 @@
(ns reitit.ring-coercion-test (ns reitit.ring-coercion-test
(:require [clojure.test :refer [deftest testing is]] (:require [clojure.test :refer [deftest testing is]]
[schema.core :as s] [schema.core :as s]
[spec-tools.data-spec :as ds]
[reitit.ring :as ring] [reitit.ring :as ring]
[reitit.ring.coercion :as rrc] [reitit.ring.coercion :as rrc]
[reitit.coercion.spec :as spec] [reitit.coercion.spec :as spec]
@ -48,7 +49,7 @@
(ring/router (ring/router
["/api" ["/api"
["/plus/:e" ["/plus/:e"
{:get {:parameters {:query {:a int?} {:get {:parameters {:query {(ds/opt :a) int?}
:body {:b int?} :body {:b int?}
:form {:c int?} :form {:c int?}
:header {:d int?} :header {:d int?}