From 8c06c997e2072c23db4273cdd000b39de8b70035 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Sat, 2 Aug 2014 00:34:30 +0200 Subject: Fix some trivial UDPSpec failures --- tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/Network') 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 let opts = def { optMinTimeout = 2, optMaxTimeout = 1 } newManager opts `shouldThrow` isSomeException - it "should throw exception on optMultiplier" $ do + it "should throw exception on zero optMultiplier" $ do let opts = def { optMultiplier = 0 } newManager opts `shouldThrow` isSomeException @@ -141,4 +141,4 @@ spec = parallel $ do it "should handle arbitrary intermixed concurrent queries" $ do withManager rpcOpts $ \ mgr -> do _ <- mapConcurrently (\ _ -> scrape mgr trackerURI [def]) [1..rpcCount] - return () \ No newline at end of file + return () -- cgit v1.2.3