haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test case for overlapping routes bug

Browse Source
This commit is contained in:
Greg Weber 2013-12-17 14:18:54 -08:00
parent 9dc16daff2
commit 5bc9f06959
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
yesod-routes/test/Hierarchy.hs
View File

@ -71,7 +71,6 @@ runHandler
-> App sub master -> App sub master
runHandler h Env {..} route _ = (toText h, fmap envToMaster route) runHandler h Env {..} route _ = (toText h, fmap envToMaster route)
data Hierarchy = Hierarchy data Hierarchy = Hierarchy
do do
@ -79,13 +78,25 @@ do
/ HomeR GET / HomeR GET
/admin/#Int AdminR: /admin/#Int AdminR:
/ AdminRootR GET / AdminRootR GET
/login LoginR GET POST /login LoginR GET POST
/table/#Text TableR GET /table/#Text TableR GET
/nest/ NestR: /nest/ NestR:
/spaces SpacedR GET /spaces SpacedR GET
/nest2 Nest2:
/get Get2 GET
/post Post2 POST
/#Int Delete2 DELETE
/nest3 Nest3:
/get Get3 GET
/post Post3 POST
/#Int Delete3 DELETE
/afterwards AfterR:
/ After GET
|] |]
rrinst <- mkRenderRouteInstance (ConT ''Hierarchy) $ map (fmap parseType) resources rrinst <- mkRenderRouteInstance (ConT ''Hierarchy) $ map (fmap parseType) resources
@ -113,6 +124,15 @@ do
getSpacedR :: Handler site String getSpacedR :: Handler site String
getSpacedR = "root-leaf" getSpacedR = "root-leaf"
getGet2 :: Handler site String; getGet2 = "get"
postPost2 :: Handler site String; postPost2 = "post"
deleteDelete2 :: Int -> Handler site String; deleteDelete2 = const "delete"
getGet3 :: Handler site String; getGet3 = "get"
postPost3 :: Handler site String; postPost3 = "post"
deleteDelete3 :: Int -> Handler site String; deleteDelete3 = const "delete"
getAfter :: Handler site String; getAfter = "after"
getHomeR :: Handler site String getHomeR :: Handler site String
getHomeR = "home" getHomeR = "home"