summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/DHT/RoutingSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/DHT/RoutingSpec.hs')
-rw-r--r--tests/Network/BitTorrent/DHT/RoutingSpec.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/DHT/RoutingSpec.hs b/tests/Network/BitTorrent/DHT/RoutingSpec.hs
index a92fec38..651412cf 100644
--- a/tests/Network/BitTorrent/DHT/RoutingSpec.hs
+++ b/tests/Network/BitTorrent/DHT/RoutingSpec.hs
@@ -31,7 +31,9 @@ runSimulation e m = evalState (runRouting ping closest timestamp m) e
31 timestamp = gets currentTime 31 timestamp = gets currentTime
32 32
33instance Arbitrary ip => Arbitrary (Env ip) where 33instance Arbitrary ip => Arbitrary (Env ip) where
34 arbitrary = Env <$> arbitrary <*> arbitrary 34 arbitrary = Env <$> arbitrary <*> (L.take nodeLimit <$> arbitrary)
35 where
36 nodeLimit = 1000
35 37
36instance (Arbitrary ip, Eq ip) => Arbitrary (Table ip) where 38instance (Arbitrary ip, Eq ip) => Arbitrary (Table ip) where
37 arbitrary = do 39 arbitrary = do