From 0a0d09bca9b312de72b4ca57904fae3a7f423e4b Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 8 Feb 2014 04:02:17 +0400 Subject: Allow empty tracker list --- tests/Network/BitTorrent/Tracker/ListSpec.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'tests/Network') diff --git a/tests/Network/BitTorrent/Tracker/ListSpec.hs b/tests/Network/BitTorrent/Tracker/ListSpec.hs index 8decd3c9..03379136 100644 --- a/tests/Network/BitTorrent/Tracker/ListSpec.hs +++ b/tests/Network/BitTorrent/Tracker/ListSpec.hs @@ -18,14 +18,11 @@ uris = fmap (fromJust . parseURI . renderURI) [1..10 :: Int] renderURI n = "http://" ++ show n ++ ".org" list :: TrackerList URI -list = fromJust $ trackerList def { tAnnounceList = Just [uris] } +list = trackerList def { tAnnounceList = Just [uris] } spec :: Spec spec = do describe "TrackerList" $ do - it "trackerList is not empty" $ do - pending - it "shuffleTiers (may fail with very small probability)" $ do list' <- shuffleTiers list list' `shouldSatisfy` (/= list) -- cgit v1.2.3