integration-0.1.0

Safe Haskell	Safe-Inferred
Language	GHC2021

Testlib.MockIntegrationService

Synopsis

withMockServer :: HasCallStack => MockServerSettings -> (Chan e -> LiftedApplication) -> ((Host, Port) -> Chan e -> App a) -> App a
lhMockAppWithPrekeys :: CreateMock App -> Chan (Request, ByteString) -> LiftedApplication
lhMockApp :: Chan (Request, ByteString) -> LiftedApplication
mkLegalHoldSettings :: (String, Port) -> Value
data CreateMock f = MkCreateMock {
- nextLastPrey :: f Value
- somePrekeys :: f [Value]
}
type LiftedApplication = Request -> (Response -> App ResponseReceived) -> App ResponseReceived
data MockServerSettings = MkMockServerSettings {
- certificate :: String
- privateKey :: String
- publicKey :: String
}

Documentation

withMockServer Source #

Arguments

:: HasCallStack
=> MockServerSettings	the mock server settings
-> (Chan e -> LiftedApplication)	The certificate and key pair
-> ((Host, Port) -> Chan e -> App a)	the test
-> App a

The channel exists to facilitate out of http comms between the test and the service. Could be used for recording (request, response) pairs.

lhMockAppWithPrekeys :: CreateMock App -> Chan (Request, ByteString) -> LiftedApplication Source #

LegalHold service. Just fake the API, do not maintain any internal state.

lhMockApp :: Chan (Request, ByteString) -> LiftedApplication Source #

mkLegalHoldSettings :: (String, Port) -> Value Source #

data CreateMock f Source #

Constructors

MkCreateMock
Fields nextLastPrey :: f Value how to obtain the next last prekey of a mock app somePrekeys :: f [Value] how to obtain some prekeys of a mock app

Instances

Instances details

App ~ f => Default (CreateMock f) Source #
Instance details Defined in Testlib.MockIntegrationService Methods def :: CreateMock f Source #

type LiftedApplication = Request -> (Response -> App ResponseReceived) -> App ResponseReceived Source #

data MockServerSettings Source #

Constructors

MkMockServerSettings
Fields certificate :: String the certificate the mock service uses privateKey :: String the private key the mock service uses publicKey :: String the public key the mock service uses

Instances

Instances details

Default MockServerSettings Source #
Instance details Defined in Testlib.MockIntegrationService Methods def :: MockServerSettings Source #