From 90d639d4136897970c5e42ebf5e6284b00e3be51 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Thu, 29 May 2014 07:53:32 +1000 Subject: [PATCH] yesod-test : Add simple tests for htmlCount/html*Contain. --- yesod-test/test/main.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs index acc83801..5e509c09 100644 --- a/yesod-test/test/main.hs +++ b/yesod-test/test/main.hs @@ -109,6 +109,15 @@ main = hspec $ do addNonce statusIs 200 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 yit "from path" $ do get ("/dynamic1/שלום" :: Text) @@ -162,6 +171,9 @@ app = liteApp $ do case mfoo of FormSuccess (foo, _) -> return $ toHtml foo _ -> defaultLayout widget + onStatic "html" $ dispatchTo $ + return ("Hello

Hello World

Hello Moon

" :: Text) + cookieApp :: LiteApp cookieApp = liteApp $ do