diff options
Diffstat (limited to 'tests/Network/BitTorrent')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 7 |
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 | ||
35 | spec :: Spec | 35 | spec :: Spec |
36 | spec = parallel $ do | 36 | spec = 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 |