diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-17 01:19:58 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-17 01:19:58 +0400 |
| commit | 49489d296b3fc371934814566566735faa5cbacf (patch) | |
| tree | 128560ccc986b0d4096b8df3883b4a28618c669c /tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |
| parent | edcedd63872809dd7905f2a21d00e0e2c67a3709 (diff) | |
Run UDP spec in parallel
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs index ae53c64b..fd7d1232 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |||
| @@ -33,7 +33,7 @@ validateInfo AnnounceQuery {..} AnnounceInfo {..} = do | |||
| 33 | peerList = getPeerList respPeers | 33 | peerList = getPeerList respPeers |
| 34 | 34 | ||
| 35 | spec :: Spec | 35 | spec :: Spec |
| 36 | spec = do | 36 | spec = parallel $ do |
| 37 | forM_ trackerURIs $ \ uri -> | 37 | forM_ trackerURIs $ \ uri -> |
| 38 | context (show uri) $ do | 38 | context (show uri) $ do |
| 39 | describe "announce" $ do | 39 | describe "announce" $ do |