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

yesod-test : Add simple tests for htmlCount/html*Contain.

Browse Source
This commit is contained in:
Erik de Castro Lopo 2014-05-29 07:53:32 +10:00
parent 7318d47781
commit 90d639d413
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-test/test/main.hs
View File

@ -109,6 +109,15 @@ main = hspec $ do
addNonce addNonce
statusIs 200 statusIs 200
bodyEquals "12345" bodyEquals "12345"
yit "finding html" $ do
get ("/html" :: Text)
statusIs 200
htmlCount "p" 2
htmlAllContain "p" "Hello"
htmlAnyContain "p" "World"
htmlAnyContain "p" "Moon"
htmlNoneContain "p" "Sun"
ydescribe "utf8 paths" $ do ydescribe "utf8 paths" $ do
yit "from path" $ do yit "from path" $ do
get ("/dynamic1/שלום" :: Text) get ("/dynamic1/שלום" :: Text)
@ -162,6 +171,9 @@ app = liteApp $ do
case mfoo of case mfoo of
FormSuccess (foo, _) -> return $ toHtml foo FormSuccess (foo, _) -> return $ toHtml foo
_ -> defaultLayout widget _ -> defaultLayout widget
onStatic "html" $ dispatchTo $
return ("<html><head><title>Hello</title></head><body><p>Hello World</p><p>Hello Moon</p></body></html>" :: Text)
cookieApp :: LiteApp cookieApp :: LiteApp
cookieApp = liteApp $ do cookieApp = liteApp $ do