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

address review comments

Browse Source
This commit is contained in:
Mark Wotton 2017-06-15 15:46:25 -04:00
parent 1bc30deee7
commit 7cd37db7c6
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-test/ChangeLog.md
View File

@ -1,6 +1,7 @@
## 1.5.7 ## 1.5.7
* Add clickOn * Add clickOn.
[#1408](https://github.com/yesodweb/yesod/pull/1408)
## 1.5.6 ## 1.5.6

7
yesod-test/Yesod/Test.hs
View File

@ -831,6 +831,13 @@ setUrl url' = do
, rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery) , rbdGets = rbdGets rbd ++ H.parseQuery (TE.encodeUtf8 urlQuery)
} }
-- | Click on a link defined by a CSS query
--
-- ==== __ Examples__
--
-- > get "/foobar"
-- > clickOn "a#idofthelink"
clickOn :: Yesod site => Query -> YesodExample site () clickOn :: Yesod site => Query -> YesodExample site ()
clickOn query = do clickOn query = do
withResponse' yedResponse ["Tried to invoke clickOn in order to read HTML of a previous response."] $ \ res -> withResponse' yedResponse ["Tried to invoke clickOn in order to read HTML of a previous response."] $ \ res ->

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

@ -174,6 +174,7 @@ main = hspec $ do
get ("/htmlWithLink" :: Text) get ("/htmlWithLink" :: Text)
clickOn "a#thelink" clickOn "a#thelink"
statusIs 200 statusIs 200
bodyEquals "<html><head><title>Hello</title></head><body><p>Hello World</p><p>Hello Moon</p></body></html>"
get ("/htmlWithLink" :: Text) get ("/htmlWithLink" :: Text)
(bad :: Either SomeException ()) <- try (clickOn "a#nonexistentlink") (bad :: Either SomeException ()) <- try (clickOn "a#nonexistentlink")