Safe Haskell	None
Language	Haskell2010

Web.Scim.Test.Util

Contents

Making wai requests
Request/response quasiquoter
JSON parsing
Tag

Synopsis

shouldRespondWith :: HasCallStack => WaiSession SResponse -> ResponseMatcher -> WaiExpectation
shouldEventuallyRespondWith :: HasCallStack => WaiSession SResponse -> ResponseMatcher -> WaiExpectation
post :: ByteString -> ByteString -> WaiSession SResponse
put :: ByteString -> ByteString -> WaiSession SResponse
patch :: ByteString -> ByteString -> WaiSession SResponse
data AcceptanceConfig tag = AcceptanceConfig {
- scimAppAndConfig :: IO (Application, AcceptanceQueryConfig tag)
- genUserName :: IO Text
- responsesFullyKnown :: Bool
}
defAcceptanceConfig :: IO Application -> AcceptanceConfig tag
data AcceptanceQueryConfig tag = AcceptanceQueryConfig {
- scimPathPrefix :: ByteString
- scimAuthToken :: ByteString
}
defAcceptanceQueryConfig :: AcceptanceQueryConfig tag
post' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse
put' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse
patch' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse
get' :: AcceptanceQueryConfig tag -> ByteString -> WaiSession SResponse
delete' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse
(<//>) :: ByteString -> ByteString -> ByteString
scim :: QuasiQuoter
newtype Field (s :: Symbol) a = Field a
getField :: Field s a -> a
data TestTag id authData authInfo userExtra

Documentation

shouldRespondWith :: HasCallStack => WaiSession SResponse -> ResponseMatcher -> WaiExpectation Source #

re-implementation of shouldRespondWith with better error reporting. FUTUREWORK: make this a PR upstream. (while we're at it, we can also patch WaiSession and request to keep track of the SRequest, and add that to the error message here with the response.)

shouldEventuallyRespondWith :: HasCallStack => WaiSession SResponse -> ResponseMatcher -> WaiExpectation Source #

Making wai requests

post :: ByteString -> ByteString -> WaiSession SResponse Source #

put :: ByteString -> ByteString -> WaiSession SResponse Source #

patch :: ByteString -> ByteString -> WaiSession SResponse Source #

data AcceptanceConfig tag Source #

Constructors

AcceptanceConfig

Fields

scimAppAndConfig :: IO (Application, AcceptanceQueryConfig tag)
genUserName :: IO Text
responsesFullyKnown :: Bool
some acceptance tests match against a fully rendered response body, which will not work when running the test as a library user (since the response will have more and other information). if you leave this on False (default from defAcceptanceConfig), the test will only check some invariants on the response instead that must hold in all cases.

defAcceptanceConfig :: IO Application -> AcceptanceConfig tag Source #

data AcceptanceQueryConfig tag Source #

Constructors

AcceptanceQueryConfig
Fields scimPathPrefix :: ByteString scimAuthToken :: ByteString

defAcceptanceQueryConfig :: AcceptanceQueryConfig tag Source #

post' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse Source #

put' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse Source #

patch' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse Source #

get' :: AcceptanceQueryConfig tag -> ByteString -> WaiSession SResponse Source #

delete' :: AcceptanceQueryConfig tag -> ByteString -> ByteString -> WaiSession SResponse Source #

(<//>) :: ByteString -> ByteString -> ByteString Source #

avoid multiple /. (kill at most one / at the end of first arg and beginning of second arg, resp., then add one during concatenation.

>>> ["a" <//> "b", "a" <//> "/b", "a/" <//> "b", "a/" <//> "/b"]
["a/b","a/b","a/b","a/b"]

WARNING: {doctests don't work in our infrastructure](https:/github.comzinfrabackend-issuesissues/1549), so this is duplicated in the unit tests.

Request/response quasiquoter

scim :: QuasiQuoter Source #

A response matcher and quasiquoter that should be used instead of json.

JSON parsing

newtype Field (s :: Symbol) a Source #

A way to parse out a single value from a JSON object by specifying the field as a type-level string. Very useful when you don't want to create extra types.

Constructors

Field a

Instances

Instances details

Functor (Field s) Source #
Instance details Defined in Web.Scim.Test.Util Methods fmap :: (a -> b) -> Field s a -> Field s b # (<$) :: a -> Field s b -> Field s a #
Eq a => Eq (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods (==) :: Field s a -> Field s a -> Bool # (/=) :: Field s a -> Field s a -> Bool #
Ord a => Ord (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods compare :: Field s a -> Field s a -> Ordering # (<) :: Field s a -> Field s a -> Bool # (<=) :: Field s a -> Field s a -> Bool # (>) :: Field s a -> Field s a -> Bool # (>=) :: Field s a -> Field s a -> Bool # max :: Field s a -> Field s a -> Field s a # min :: Field s a -> Field s a -> Field s a #
Read a => Read (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods readsPrec :: Int -> ReadS (Field s a) # readList :: ReadS [Field s a] # readPrec :: ReadPrec (Field s a) # readListPrec :: ReadPrec [Field s a] #
Show a => Show (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods showsPrec :: Int -> Field s a -> ShowS # show :: Field s a -> String # showList :: [Field s a] -> ShowS #
(KnownSymbol s, ToJSON a) => ToJSON (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods toJSON :: Field s a -> Value # toEncoding :: Field s a -> Encoding # toJSONList :: [Field s a] -> Value # toEncodingList :: [Field s a] -> Encoding #
(KnownSymbol s, FromJSON a) => FromJSON (Field s a) Source #
Instance details Defined in Web.Scim.Test.Util Methods parseJSON :: Value -> Parser (Field s a) # parseJSONList :: Value -> Parser [Field s a] #

getField :: Field s a -> a Source #

Tag

data TestTag id authData authInfo userExtra Source #

A type-level tag for UserTypes, AuthTypes, etc. that allows picking any types we might need in tests.

Instances

Instances details

AuthTypes (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util Associated Types type AuthData (TestTag id authData authInfo userExtra) Source # type AuthInfo (TestTag id authData authInfo userExtra) Source #
GroupTypes (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util Associated Types type GroupId (TestTag id authData authInfo userExtra) Source #
UserTypes (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util Associated Types type UserId (TestTag id authData authInfo userExtra) Source # type UserExtra (TestTag id authData authInfo userExtra) Source # Methods supportedSchemas :: [Schema] Source #
type AuthData (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util type AuthData (TestTag id authData authInfo userExtra) = authData
type AuthInfo (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util type AuthInfo (TestTag id authData authInfo userExtra) = authInfo
type GroupId (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util type GroupId (TestTag id authData authInfo userExtra) = id
type UserId (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util type UserId (TestTag id authData authInfo userExtra) = id
type UserExtra (TestTag id authData authInfo userExtra) Source #
Instance details Defined in Web.Scim.Test.Util type UserExtra (TestTag id authData authInfo userExtra) = userExtra