Test.Syd.Yesod.Client

Documentation

data YesodClient site

A client environment to call a Yesod app.

Constructors

YesodClient

Fields

• yesodClientSite :: !site

  The site itself

• yesodClientManager :: !Manager

  The Manager to make the requests

• yesodClientSitePort :: !Int

  The port that the site is running on, using warp

Instances

MonadReader (YesodClient site) (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

ask :: YesodClientM site (YesodClient site)

local :: (YesodClient site -> YesodClient site) -> YesodClientM site a -> YesodClientM site a

reader :: (YesodClient site -> a) -> YesodClientM site a

MonadReader (YesodClient site) (RequestBuilder site)

Defined in Test.Syd.Yesod.Request

Methods

ask :: RequestBuilder site (YesodClient site)

local :: (YesodClient site -> YesodClient site) -> RequestBuilder site a -> RequestBuilder site a

reader :: (YesodClient site -> a) -> RequestBuilder site a

data YesodClientState site

The state that is maintained throughout a YesodClientM

Constructors

YesodClientState

Fields

• yesodClientStateLast :: !(Maybe (Request, Response ByteString))

  The last request and response pair

• yesodClientStateCookies :: !CookieJar

  The cookies to pass along

Instances

MonadState (YesodClientState site) (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

get :: YesodClientM site (YesodClientState site)

put :: YesodClientState site -> YesodClientM site ()

state :: (YesodClientState site -> (a, YesodClientState site)) -> YesodClientM site a

initYesodClientState :: YesodClientState site

The starting point of the 'YesodClientState site' of a 'YesodClientM site'

newtype YesodClientM site a

A monad to call a Yesod app.

This has access to a 'YesodClient site'.

Constructors

YesodClientM

Fields

• unYesodClientM :: StateT (YesodClientState site) (ReaderT (YesodClient site) IO) a

Instances

Monad (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

(>>=) :: YesodClientM site a -> (a -> YesodClientM site b) -> YesodClientM site b

(>>) :: YesodClientM site a -> YesodClientM site b -> YesodClientM site b

return :: a -> YesodClientM site a

Functor (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

fmap :: (a -> b) -> YesodClientM site a -> YesodClientM site b

(<$) :: a -> YesodClientM site b -> YesodClientM site a

MonadFail (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

fail :: String -> YesodClientM site a

Applicative (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

pure :: a -> YesodClientM site a

(<*>) :: YesodClientM site (a -> b) -> YesodClientM site a -> YesodClientM site b

liftA2 :: (a -> b -> c) -> YesodClientM site a -> YesodClientM site b -> YesodClientM site c

(*>) :: YesodClientM site a -> YesodClientM site b -> YesodClientM site b

(<*) :: YesodClientM site a -> YesodClientM site b -> YesodClientM site a

MonadIO (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

liftIO :: IO a -> YesodClientM site a

MonadThrow (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

throwM :: Exception e => e -> YesodClientM site a

MonadState (YesodClientState site) (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

get :: YesodClientM site (YesodClientState site)

put :: YesodClientState site -> YesodClientM site ()

state :: (YesodClientState site -> (a, YesodClientState site)) -> YesodClientM site a

MonadReader (YesodClient site) (YesodClientM site)

Defined in Test.Syd.Yesod.Client

Methods

ask :: YesodClientM site (YesodClient site)

local :: (YesodClient site -> YesodClient site) -> YesodClientM site a -> YesodClientM site a

reader :: (YesodClient site -> a) -> YesodClientM site a

type YesodExample site a = YesodClientM site a

For backward compatibility

runYesodClientM :: YesodClient site -> YesodClientM site a -> IO a

Run a YesodClientM site using a YesodClient site

getRequest :: YesodClientM site (Maybe Request)

Get the most recently sent request.

getResponse :: YesodClientM site (Maybe (Response ByteString))

Get the most recently received response.

getLast :: YesodClientM site (Maybe (Request, Response ByteString))

Get the most recently sent request and the response to it.

getLocation :: ParseRoute site => YesodClientM site (Either Text (Route site))

Get the Location header of most recently received response.

withLastRequestContext :: YesodClientM site a -> YesodClientM site a

Annotate the given test code with the last request and its response, if one has been made already.