metainfotest: use the predicate shouldSatisfy to check for a condition

diff --git a/test/MetainfoTests.hs b/test/MetainfoTests.hs
index 824bb64ee1d50568e1ba81c84ced0269ab51516d..727de500e705981e0bb3c6acbd9c972a88def022 100644 (file)
--- a/test/MetainfoTests.hs
+++ b/test/MetainfoTests.hs
@@ -19,5 +19,5 @@ tests = hspec $ do
       case torrentToMetainfo fc of
         Left _ -> pending
         Right metainfo -> do
-            announceList metainfo `shouldNotBe` []
+            announceList metainfo `shouldSatisfy` (not . null)