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

test: add test for overriding malli registry

Browse source
This commit is contained in:
Joel Kaasinen 2025-11-14 14:05:36 +02:00
parent ea58100fec
commit af7313bd9b
No known key found for this signature in database
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -585,7 +585,7 @@
(is (= {:status 200, :body {:total "FOO: this, BAR: that"}} (call m/schema custom-meta-merge-checking-schema))) (is (= {:status 200, :body {:total "FOO: this, BAR: that"}} (call m/schema custom-meta-merge-checking-schema)))
(is (= {:status 200, :body {:total "FOO: this, BAR: that"}} (call identity custom-meta-merge-checking-parameters))))) (is (= {:status 200, :body {:total "FOO: this, BAR: that"}} (call identity custom-meta-merge-checking-parameters)))))
(testing "options" (testing "malli options"
(let [->app (fn [options] (let [->app (fn [options]
(ring/ring-handler (ring/ring-handler
(ring/router (ring/router
@ -593,7 +593,7 @@
[:i :int] [:i :int]
[:x :string]]} [:x :string]]}
:handler (fn [{{:keys [body]} :parameters}] :handler (fn [{{:keys [body]} :parameters}]
{:status 200 :body {}})}}] {:status 200 :body body})}}]
{:data {:middleware [rrc/coerce-exceptions-middleware {:data {:middleware [rrc/coerce-exceptions-middleware
rrc/coerce-request-middleware rrc/coerce-request-middleware
rrc/coerce-response-middleware] rrc/coerce-response-middleware]
@ -611,7 +611,12 @@
:malli.core/missing-key {:error/message {:en "MISSING"}}}}}) :malli.core/missing-key {:error/message {:en "MISSING"}}}}})
(assoc request :body-params {:i "x"})) (assoc request :body-params {:i "x"}))
:body :body
:humanized)))))))) :humanized))))
(testing "overriding registry"
(is (= {:body {:i "x" :x "x"} :status 200}
(-> ((->app {:options {:registry (merge (m/default-schemas)
{:int :string})}})
(assoc request :body-params {:i "x" :x "x"}))))))))))
#?(:clj #?(:clj
(deftest per-content-type-test (deftest per-content-type-test