Spec: Pass known torrents in announce requests

2 files changed, 10 insertions, 5 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
               it "have valid response" $ do
                 withManager def $ \ mgr -> do
 --                  q    <- arbitrarySample
-                  let q = AnnounceQuery def "-HS0003-203534.37420" 6000
+                  let ih = maybe def L.head hashList
+                  let q = AnnounceQuery ih "-HS0003-203534.37420" 6000
                           (Progress 0 0 0) Nothing Nothing (Just Started)
                   info <- announce mgr trackerURI q
                   validateInfo q info
diff --git a/tests/Network/BitTorrent/Tracker/TestData.hs b/tests/Network/BitTorrent/Tracker/TestData.hs
index bfb1bff0..e0edba25 100644
--- a/tests/Network/BitTorrent/Tracker/TestData.hs
+++ b/tests/Network/BitTorrent/Tracker/TestData.hs
@@ -72,11 +72,15 @@ notWorking name uri = (trackerEntry uri)
 
 trackers :: [TrackerEntry]
 trackers =
-  [ announceOnly "LinuxTracker"
-    "http://linuxtracker.org:2710/00000000000000000000000000000000/announce"
+  [ (announceOnly "LinuxTracker"
+    "http://linuxtracker.org:2710/00000000000000000000000000000000/announce")
+    { hashList = Just ["1c82a95b9e02bf3db4183da072ad3ef656aacf0e"] -- debian 7
+    }
+
+  , (announceScrape "Arch" "http://tracker.archlinux.org:6969/announce")
+    { hashList = Just ["bc9ae647a3e6c3636de58535dd3f6360ce9f4621"]
+    }
 
-    -- from "http://www.linux23.com/"
-  , announceScrape "Arch" "http://tracker.archlinux.org:6969/announce"
   , notWorking     "rarbg" "udp://9.rarbg.com:2710/announce"
 
   , announceScrape "OpenBitTorrent" "udp://tracker.openbittorrent.com:80/announce"