summaryrefslogtreecommitdiff
path: root/tests/Network
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network')
-rw-r--r--tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
index 1ec3bdb7..3a3dddf5 100644
--- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
@@ -67,7 +67,7 @@ spec = parallel $ do
67 let opts = def { optMinTimeout = 2, optMaxTimeout = 1 } 67 let opts = def { optMinTimeout = 2, optMaxTimeout = 1 }
68 newManager opts `shouldThrow` isSomeException 68 newManager opts `shouldThrow` isSomeException
69 69
70 it "should throw exception on optMultiplier" $ do 70 it "should throw exception on zero optMultiplier" $ do
71 let opts = def { optMultiplier = 0 } 71 let opts = def { optMultiplier = 0 }
72 newManager opts `shouldThrow` isSomeException 72 newManager opts `shouldThrow` isSomeException
73 73
@@ -141,4 +141,4 @@ spec = parallel $ do
141 it "should handle arbitrary intermixed concurrent queries" $ do 141 it "should handle arbitrary intermixed concurrent queries" $ do
142 withManager rpcOpts $ \ mgr -> do 142 withManager rpcOpts $ \ mgr -> do
143 _ <- mapConcurrently (\ _ -> scrape mgr trackerURI [def]) [1..rpcCount] 143 _ <- mapConcurrently (\ _ -> scrape mgr trackerURI [def]) [1..rpcCount]
144 return () \ No newline at end of file 144 return ()