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

Expose withResponse in yesod-test

Browse Source
This commit is contained in:
Michael Xavier 2012-03-22 19:58:18 -07:00
parent 05ed37807b
commit e18253e6e9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,7 +58,7 @@ module Yesod.Test (
-- * Utils for building your own assertions -- * Utils for building your own assertions
-- | Please consider generalizing and contributing the assertions you write. -- | Please consider generalizing and contributing the assertions you write.
htmlQuery, parseHTML htmlQuery, parseHTML, withResponse
) )
@ -152,7 +152,8 @@ it label action = do
return () return ()
ST.put $ SpecsData app conn (specs++spec) ST.put $ SpecsData app conn (specs++spec)
-- Performs a given action using the last response. -- Performs a given action using the last response. Use this to create
-- response-level assertions
withResponse :: HoldsResponse a => (SResponse -> ST.StateT a IO b) -> ST.StateT a IO b withResponse :: HoldsResponse a => (SResponse -> ST.StateT a IO b) -> ST.StateT a IO b
withResponse f = maybe err f =<< fmap readResponse ST.get withResponse f = maybe err f =<< fmap readResponse ST.get
where err = failure "There was no response, you should make a request" where err = failure "There was no response, you should make a request"