diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-28 20:17:32 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-28 20:17:32 +0400 |
| commit | 6943ed2b9c7a4bb9a066a42a4611c2158e2e5282 (patch) | |
| tree | 7d69d86ed1bb2a636ac01e168228ef932e0908b6 /tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs | |
| parent | 6fb35776834fedeeff3e52e719c3aa55c18d35c6 (diff) | |
Spec: Pass known torrents in announce requests
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs index c2af32c8..2a00c96c 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs | |||
| @@ -61,7 +61,8 @@ spec = parallel $ do | |||
| 61 | it "have valid response" $ do | 61 | it "have valid response" $ do |
| 62 | withManager def $ \ mgr -> do | 62 | withManager def $ \ mgr -> do |
| 63 | -- q <- arbitrarySample | 63 | -- q <- arbitrarySample |
| 64 | let q = AnnounceQuery def "-HS0003-203534.37420" 6000 | 64 | let ih = maybe def L.head hashList |
| 65 | let q = AnnounceQuery ih "-HS0003-203534.37420" 6000 | ||
| 65 | (Progress 0 0 0) Nothing Nothing (Just Started) | 66 | (Progress 0 0 0) Nothing Nothing (Just Started) |
| 66 | info <- announce mgr trackerURI q | 67 | info <- announce mgr trackerURI q |
| 67 | validateInfo q info | 68 | validateInfo q info |