diff options
Diffstat (limited to 'tests/Network/BitTorrent/DHTSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/DHTSpec.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Network/BitTorrent/DHTSpec.hs b/tests/Network/BitTorrent/DHTSpec.hs index 30abc867..77160eb5 100644 --- a/tests/Network/BitTorrent/DHTSpec.hs +++ b/tests/Network/BitTorrent/DHTSpec.hs | |||
@@ -36,8 +36,8 @@ spec = do | |||
36 | it "partial bootstrapping should finish in less than 10 seconds" $ do | 36 | it "partial bootstrapping should finish in less than 10 seconds" $ do |
37 | node <- resolveHostName (L.head defaultBootstrapNodes) | 37 | node <- resolveHostName (L.head defaultBootstrapNodes) |
38 | res <- timeout partialBootstrapTimeout $ do | 38 | res <- timeout partialBootstrapTimeout $ do |
39 | dht opts def $ do | 39 | dht opts def fullLogging $ do |
40 | bootstrap [node] | 40 | bootstrap Nothing [node] |
41 | isBootstrapped | 41 | isBootstrapped |
42 | res `shouldBe` Just True | 42 | res `shouldBe` Just True |
43 | 43 | ||
@@ -57,4 +57,4 @@ spec = do | |||
57 | pending | 57 | pending |
58 | 58 | ||
59 | describe "delete" $ do | 59 | describe "delete" $ do |
60 | return () \ No newline at end of file | 60 | return () |