diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/HTTPSpec.hs | 18 |
1 files changed, 18 insertions, 0 deletions
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 | |||
23 | 23 | ||
24 | spec :: Spec | 24 | spec :: Spec |
25 | spec = parallel $ do | 25 | spec = parallel $ do |
26 | describe "Manager" $ do | ||
27 | describe "newManager" $ do | ||
28 | it "" $ pending | ||
29 | |||
30 | describe "closeManager" $ do | ||
31 | it "" $ pending | ||
32 | |||
33 | describe "withManager" $ do | ||
34 | it "" $ pending | ||
35 | |||
26 | describe "RPC" $ do | 36 | describe "RPC" $ do |
37 | describe "announce" $ do | ||
38 | it "must fail on bad uri scheme" $ do | ||
39 | pending | ||
40 | |||
41 | describe "scrape" $ do | ||
42 | it "fail on bad uri scheme" $ do | ||
43 | pending | ||
44 | |||
27 | forM_ (L.filter isHttpTracker trackers) $ \ TrackerEntry {..} -> | 45 | forM_ (L.filter isHttpTracker trackers) $ \ TrackerEntry {..} -> |
28 | context trackerName $ do | 46 | context trackerName $ do |
29 | 47 | ||