ouroboros-network:testlib
Safe HaskellNone
LanguageHaskell2010

Test.Ouroboros.Network.PeerSelection.RootPeersDNS

Synopsis

Documentation

mockDNSActions :: forall exception peerAddr (m :: Type -> Type). (MonadDelay m, MonadTimer m, MonadAsync m) => Tracer m DNSTrace -> DNSLookupType -> (IP -> PortNumber -> peerAddr) -> StrictTVar m MockDNSMap -> StrictTVar m (Script DNSTimeout) -> StrictTVar m (Script DNSLookupDelay) -> DNSActions peerAddr () 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.

genGroupSrvs :: (Arbitrary prio, Arbitrary wt) => [(srv, [subordinate])] -> Gen [(srv, [(subordinate, prio, wt, PortNumber)])] Source #