diff options
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/MessageSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/MessageSpec.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs index 5949de7a..87d9f191 100644 --- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs +++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs | |||
@@ -4,7 +4,6 @@ | |||
4 | {-# OPTIONS -fno-warn-orphans #-} | 4 | {-# OPTIONS -fno-warn-orphans #-} |
5 | module Network.BitTorrent.Tracker.MessageSpec | 5 | module Network.BitTorrent.Tracker.MessageSpec |
6 | ( spec | 6 | ( spec |
7 | , validateInfo | ||
8 | , arbitrarySample | 7 | , arbitrarySample |
9 | ) where | 8 | ) where |
10 | 9 | ||
@@ -54,19 +53,6 @@ instance Arbitrary AnnounceInfo where | |||
54 | <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary | 53 | <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary |
55 | <*> arbitrary <*> arbitrary | 54 | <*> arbitrary <*> arbitrary |
56 | 55 | ||
57 | validateInfo :: AnnounceQuery -> AnnounceInfo -> Expectation | ||
58 | validateInfo _ Message.Failure {..} = error "validateInfo: failure" | ||
59 | validateInfo AnnounceQuery {..} AnnounceInfo {..} = do | ||
60 | respComplete `shouldSatisfy` isJust | ||
61 | respIncomplete `shouldSatisfy` isJust | ||
62 | respMinInterval `shouldSatisfy` isNothing | ||
63 | respWarning `shouldSatisfy` isNothing | ||
64 | peerList `shouldSatisfy` L.all (isNothing . peerId) | ||
65 | fromJust respComplete + fromJust respIncomplete | ||
66 | `shouldBe` L.length peerList | ||
67 | where | ||
68 | peerList = getPeerList respPeers | ||
69 | |||
70 | arbitrarySample :: Arbitrary a => IO a | 56 | arbitrarySample :: Arbitrary a => IO a |
71 | arbitrarySample = L.head <$> sample' arbitrary | 57 | arbitrarySample = L.head <$> sample' arbitrary |
72 | 58 | ||