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

Include a proper subsite test

Browse Source
This commit is contained in:
Michael Snoyman 2013-03-13 08:14:01 +02:00
parent 9a53092be7
commit e928991410
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
yesod-core/test/YesodCoreTest/NoOverloadedStrings.hs
View File

@ -5,8 +5,11 @@ module YesodCoreTest.NoOverloadedStrings (noOverloadedTest, Widget) where
import Test.Hspec import Test.Hspec
import Yesod.Core import Yesod.Core
import Network.Wai
import Network.Wai.Test import Network.Wai.Test
import Data.Monoid (mempty) import Data.Monoid (mempty)
import qualified Data.Text as T
import qualified Data.ByteString.Lazy.Char8 as L8
data Subsite = Subsite data Subsite = Subsite
@ -17,8 +20,8 @@ mkYesodSub "Subsite" [] [parseRoutes|
/bar BarR GET /bar BarR GET
|] |]
getBarR :: GHandler Subsite m () getBarR :: Monad m => m T.Text
getBarR = return () getBarR = return $ T.pack "BarR"
data Y = Y data Y = Y
mkYesod "Y" [parseRoutes| mkYesod "Y" [parseRoutes|
@ -43,6 +46,15 @@ case_sanity = runner $ do
res <- request defaultRequest res <- request defaultRequest
assertBody mempty res assertBody mempty res
case_subsite :: IO ()
case_subsite = runner $ do
res <- request defaultRequest
{ pathInfo = map T.pack ["subsite", "bar"]
}
assertStatus 200 res
assertBody (L8.pack "BarR") res
noOverloadedTest :: Spec noOverloadedTest :: Spec
noOverloadedTest = describe "Test.NoOverloadedStrings" $ do noOverloadedTest = describe "Test.NoOverloadedStrings" $ do
it "sanity" case_sanity it "sanity" case_sanity
it "subsite" case_subsite