summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs')
-rw-r--r--tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs7
1 files changed, 5 insertions, 2 deletions
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
33 peerList = getPeerList respPeers 33 peerList = getPeerList respPeers
34 34
35spec :: Spec 35spec :: Spec
36spec = parallel $ do 36spec = do
37 forM_ trackerURIs $ \ uri -> 37-- describe "RpcException" $
38
39 parallel $ do
40 forM_ trackerURIs $ \ uri ->
38 context (show uri) $ do 41 context (show uri) $ do
39 describe "announce" $ do 42 describe "announce" $ do
40 it "have valid response" $ do 43 it "have valid response" $ do