diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-24 02:26:05 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-24 02:26:05 +0400 |
| commit | 04815747e3a9b80ee2fbe37a8e5636ab42c33bdf (patch) | |
| tree | 8748dfc38b7aa4ebbe9eac167c620aac3a14efde /tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |
| parent | 279ea9c29e0f61541ea0281678412d6dc6586d60 (diff) | |
Minor changes
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs')
| -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 |