From 302220eb77ebc307594eeb7855712bd93dcc504a Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Thu, 27 Feb 2014 16:09:45 +0400 Subject: HTTP Tracker: Add pending items specs --- tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'tests') diff --git a/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs index 15c0ef4f..5288e304 100644 --- a/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs @@ -23,7 +23,25 @@ validateInfo AnnounceQuery {..} AnnounceInfo {..} = do spec :: Spec spec = parallel $ do + describe "Manager" $ do + describe "newManager" $ do + it "" $ pending + + describe "closeManager" $ do + it "" $ pending + + describe "withManager" $ do + it "" $ pending + describe "RPC" $ do + describe "announce" $ do + it "must fail on bad uri scheme" $ do + pending + + describe "scrape" $ do + it "fail on bad uri scheme" $ do + pending + forM_ (L.filter isHttpTracker trackers) $ \ TrackerEntry {..} -> context trackerName $ do -- cgit v1.2.3