git.iko.soy/distributed-process
on mx-fix help sign in
distributed-process/distributed-process-tests/src/Network/Transport/Test.hs
12 lines 461 B history raw
1module Network.Transport.Test where
3import qualified Network.Transport as NT
4import Data.Typeable (Typeable)
6-- | Extra operations required of transports for the purposes of testing.
7data TestTransport = TestTransport
8 { -- | The transport to use for testing.
9 testTransport :: NT.Transport
10 -- | IO action to perform to simulate losing a connection.
11 , testBreakConnection :: NT.EndPointAddress -> NT.EndPointAddress -> IO ()
12 } deriving (Typeable)