From f1f28f1a128caa3df5cdab2eb4c22ec07633af06 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 8 Feb 2014 05:45:59 +0400 Subject: Add default instance for PeerInfo --- tests/Network/BitTorrent/Tracker/RPCSpec.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'tests/Network') diff --git a/tests/Network/BitTorrent/Tracker/RPCSpec.hs b/tests/Network/BitTorrent/Tracker/RPCSpec.hs index da4a0878..c3c7f9e2 100644 --- a/tests/Network/BitTorrent/Tracker/RPCSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPCSpec.hs @@ -15,9 +15,6 @@ import Network.BitTorrent.Tracker.RPC as RPC uris :: [URI] uris = UDP.trackerURIs ++ HTTP.trackerURIs -pinfo :: PeerInfo -pinfo = PeerInfo "-HS0003-203534.37422" 6000 Nothing - instance Arbitrary SAnnounceQuery where arbitrary = SAnnounceQuery <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary @@ -28,13 +25,13 @@ spec = do context (show uri) $ do describe "announce" $ do it "have valid response" $ do - withManager def pinfo $ \ mgr -> do + withManager def def $ \ mgr -> do q <- arbitrarySample _ <- announce mgr uri q return () describe "scrape" $ do it "have valid response" $ do - withManager def pinfo $ \ mgr -> do + withManager def def $ \ mgr -> do xs <- scrape mgr uri [def] L.length xs `shouldSatisfy` (>= 1) -- cgit v1.2.3