diff options
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 |