hiro/myway
1
0
Fork 0
mirror of https://github.com/vale981/myway synced 2025-03-04 17:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add tests for find-route-by name

Browse source
This commit is contained in:
Valentin Boettcher 2019-09-30 13:21:32 +02:00
parent 4399e05cad
commit af873ac81e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/myway.lisp
View file

@ -21,6 +21,14 @@
(is (find-route *mapper* "/" :method :POST) nil) (is (find-route *mapper* "/" :method :POST) nil)
(is (dispatch *mapper* "/" :method :GET) "Hello, World!") (is (dispatch *mapper* "/" :method :GET) "Hello, World!")
(connect *mapper* "/"
(lambda (params)
(declare (ignore params))
"Hello, World!")
:name :test)
(ok (find-route-by-name *mapper* :test))
(is (find-route-by-name *mapper* :test) (find-route *mapper* "/" :name :test))
(connect *mapper* "/post" (connect *mapper* "/post"
(lambda (params) (lambda (params)
(declare (ignore params)) (declare (ignore params))