Adjust tests to allow string keys

This commit is contained in:
Unknown 2018-10-16 22:57:33 +09:00
parent 6322bb99f1
commit a00798a0f5
2 changed files with 4 additions and 6 deletions

View file

@ -99,9 +99,7 @@
:coercion reitit.coercion.spec/coercion} :coercion reitit.coercion.spec/coercion}
:validate rrs/validate-spec!}))) :validate rrs/validate-spec!})))
(is (thrown-with-msg? (is (r/router?
ExceptionInfo
#"Invalid route data"
(ring/router (ring/router
["/api" ["/api"
["/plus/:e" ["/plus/:e"

View file

@ -116,9 +116,9 @@
:header {:d string?} :header {:d string?}
:path {:e string?}}})) :path {:e string?}}}))
(is (not (s/valid? (is (s/valid?
::rs/parameters ::rs/parameters
{:parameters {:header {"d" string?}}}))) {:parameters {:header {"d" string?}}}))
(is (s/valid? (is (s/valid?
::rs/responses ::rs/responses