TmpProc.Example1.IntegrationTaste

An demo Tasty test that use tmp-proc

Documentation

dbProc :: TmpPostgres

The test uses a Postgres database .

cacheProc :: TmpRedis

The test uses Redis as a cache.

testProcs :: HList '[TmpPostgres, TmpRedis]

Specifies the procs to be launched as test fixtures.

main :: IO ()

tests :: IO Fixture -> TestTree

hasInCache :: ServerHandle '[TmpPostgres, TmpRedis] -> ContactID -> IO Bool

hasInDb :: ServerHandle '[TmpPostgres, TmpRedis] -> ContactID -> IO Bool

type Fixture = (ServerHandle '[TmpPostgres, TmpRedis], ClientEnv)

The full test fixture.

It allows tests to

• use the servant client to invoke the backend
• check the state of service backends via the ProcHandles in the ServerHandle.

mkFixture :: IO (ServerHandle '[TmpPostgres, TmpRedis], ClientEnv)

shutdown' :: (ServerHandle '[TmpPostgres, TmpRedis], ClientEnv) -> IO ()

cacheLocFrom :: ProcHandle TmpRedis -> IO Locator

clientEnvOf :: AreProcs procs => ServerHandle procs -> IO ClientEnv

testContact :: Contact