Allow empty tracker list

1 files changed, 1 insertions, 4 deletions

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)