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

Add a testcase for nested subsites

Browse Source
This commit is contained in:
Anupam Jain 2016-01-14 11:30:06 +05:30
parent a1df470d01
commit 0d99f94e5a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/test/YesodCoreTest/WaiSubsite.hs
View File

@ -15,6 +15,8 @@ data Y = Y
mkYesod "Y" [parseRoutes| mkYesod "Y" [parseRoutes|
/ RootR GET / RootR GET
/sub WaiSubsiteR WaiSubsite getApp /sub WaiSubsiteR WaiSubsite getApp
/nested NestedR:
/sub NestedWaiSubsiteR WaiSubsite getApp
|] |]
instance Yesod Y instance Yesod Y
@ -36,3 +38,8 @@ specs = describe "WaiSubsite" $ do
res <- request defaultRequest { pathInfo = ["sub", "foo"] } res <- request defaultRequest { pathInfo = ["sub", "foo"] }
assertStatus 200 res assertStatus 200 res
assertBodyContains "WAI" res assertBodyContains "WAI" res
it "nested subsite" $ app $ do
res <- request defaultRequest { pathInfo = ["nested", "sub", "foo"] }
assertStatus 200 res
assertBodyContains "WAI" res