From 04815747e3a9b80ee2fbe37a8e5636ab42c33bdf Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Mon, 24 Feb 2014 02:26:05 +0400 Subject: Minor changes --- tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'tests/Network/BitTorrent') diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs index 540a887c..d0f0f26c 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs @@ -33,8 +33,11 @@ validateInfo AnnounceQuery {..} AnnounceInfo {..} = do peerList = getPeerList respPeers spec :: Spec -spec = parallel $ do - forM_ trackerURIs $ \ uri -> +spec = do +-- describe "RpcException" $ + + parallel $ do + forM_ trackerURIs $ \ uri -> context (show uri) $ do describe "announce" $ do it "have valid response" $ do -- cgit v1.2.3