diff options
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 4 |
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 () |