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}
:validate rrs/validate-spec!})))
(is (thrown-with-msg?
ExceptionInfo
#"Invalid route data"
(is (r/router?
(ring/router
["/api"
["/plus/:e"

View file

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