diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 16:09:45 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-27 16:09:45 +0400 |
commit | 302220eb77ebc307594eeb7855712bd93dcc504a (patch) | |
tree | 7142dd221761e1483833c6427356332fb9cfb091 /tests/Network/BitTorrent/Tracker/RPC | |
parent | 8ecef49a857486c25bed0de9d673accb01616b7d (diff) |
HTTP Tracker: Add pending items specs
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/RPC')
-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 | ||