Add spec for RPC.UDP.closeManager

1 files changed, 4 insertions, 0 deletions

diff --git a/tests/Network/BitTorrent/Tracker/TestData.hs b/tests/Network/BitTorrent/Tracker/TestData.hs
index 22077e90..bfb1bff0 100644
--- a/tests/Network/BitTorrent/Tracker/TestData.hs
+++ b/tests/Network/BitTorrent/Tracker/TestData.hs
@@ -5,6 +5,7 @@ module Network.BitTorrent.Tracker.TestData
        , isUdpTracker
        , isHttpTracker
        , trackers
+       , badTracker
        ) where
 
 import Data.Maybe
@@ -83,3 +84,6 @@ trackers =
   , notWorking     "OpenBitTorrent" "http://tracker.openbittorrent.com:80/announce"
   , notWorking     "PublicBT"       "http://tracker.publicbt.com:80/announce"
   ]
+
+badTracker :: TrackerEntry
+badTracker = notWorking "rarbg" "udp://9.rarbg.com:2710/announce"
\ No newline at end of file