From 0d99f94e5a7f4ca88cf4a28acd4a990c6090ffb5 Mon Sep 17 00:00:00 2001
From: Anupam Jain <ajnsit@gmail.com>
Date: Thu, 14 Jan 2016 11:30:06 +0530
Subject: [PATCH] Add a testcase for nested subsites

---
 yesod-core/test/YesodCoreTest/WaiSubsite.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/yesod-core/test/YesodCoreTest/WaiSubsite.hs b/yesod-core/test/YesodCoreTest/WaiSubsite.hs
index b319b9e3..6b55601f 100644
--- a/yesod-core/test/YesodCoreTest/WaiSubsite.hs
+++ b/yesod-core/test/YesodCoreTest/WaiSubsite.hs
@@ -15,6 +15,8 @@ data Y = Y
 mkYesod "Y" [parseRoutes|
 / RootR GET
 /sub WaiSubsiteR WaiSubsite getApp
+/nested NestedR:
+  /sub NestedWaiSubsiteR WaiSubsite getApp
 |]
 
 instance Yesod Y
@@ -36,3 +38,8 @@ specs = describe "WaiSubsite" $ do
       res <- request defaultRequest { pathInfo = ["sub", "foo"] }
       assertStatus 200 res
       assertBodyContains "WAI" res
+
+    it "nested subsite" $ app $ do
+      res <- request defaultRequest { pathInfo = ["nested", "sub", "foo"] }
+      assertStatus 200 res
+      assertBodyContains "WAI" res