| Safe Haskell | Safe-Inferred |
|---|---|
| Language | Haskell2010 |
Test.Ouroboros.Network.PeerSelection.RootPeersDNS
Synopsis
- tests :: TestTree
- mockDNSActions :: forall exception m. (MonadSTM m, MonadDelay m, MonadTimer m) => StrictTVar m (Map Domain [(IP, TTL)]) -> TVar m (Script DNSTimeout) -> TVar m (Script DNSLookupDelay) -> DNSActions () exception m
- data MockRoots = MockRoots {
- mockLocalRootPeers :: [(HotValency, WarmValency, Map RelayAccessPoint PeerAdvertise)]
- mockLocalRootPeersDNSMap :: Script (Map Domain [(IP, TTL)])
- mockPublicRootPeers :: Map RelayAccessPoint PeerAdvertise
- mockPublicRootPeersDNSMap :: Script (Map Domain [(IP, TTL)])
- newtype DNSTimeout = DNSTimeout {
- getDNSTimeout :: DiffTime
- newtype DNSLookupDelay = DNSLookupDelay {
- getDNSLookupDelay :: DiffTime
- data DelayAndTimeoutScripts = DelayAndTimeoutScripts (Script DNSLookupDelay) (Script DNSTimeout)
Documentation
mockDNSActions :: forall exception m. (MonadSTM m, MonadDelay m, MonadTimer m) => StrictTVar m (Map Domain [(IP, TTL)]) -> TVar m (Script DNSTimeout) -> TVar m (Script DNSLookupDelay) -> DNSActions () exception m Source #
Mock DNSActions data structure for testing purposes. Adds DNS Lookup function for IOSim with different timeout and lookup delays for every attempt.
Constructors
| MockRoots | |
Fields
| |
newtype DNSTimeout Source #
Constructors
| DNSTimeout | |
Fields
| |
Instances
| Arbitrary DNSTimeout Source # | |
| Show DNSTimeout Source # | |
newtype DNSLookupDelay Source #
Constructors
| DNSLookupDelay | |
Fields
| |
Instances
| Arbitrary DNSLookupDelay Source # | |
| Show DNSLookupDelay Source # | |
data DelayAndTimeoutScripts Source #
Delay and timeout script which make sure that eventually the dns lookup will not timeout.
Constructors
| DelayAndTimeoutScripts (Script DNSLookupDelay) (Script DNSTimeout) |
Instances
| Arbitrary DelayAndTimeoutScripts Source # | |
Defined in Test.Ouroboros.Network.PeerSelection.RootPeersDNS Methods arbitrary :: Gen DelayAndTimeoutScripts shrink :: DelayAndTimeoutScripts -> [DelayAndTimeoutScripts] | |
| Show DelayAndTimeoutScripts Source # | |