diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-07 03:41:08 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-07 03:41:08 +0400 |
| commit | 0968d03183996fb090bb7e8963eb97581538bfab (patch) | |
| tree | b7982e2b7087979aaa1012178317f79a77b4a1b2 /tests/Network/BitTorrent/Tracker | |
| parent | 10cebfb3bf311d386af2a849c13e5e99bd975f57 (diff) | |
rename peerID field to peerId
Diffstat (limited to 'tests/Network/BitTorrent/Tracker')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/MessageSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs index 8ae1a1cc..ac770905 100644 --- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs +++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs | |||
| @@ -46,7 +46,7 @@ validateInfo AnnounceQuery {..} AnnounceInfo {..} = do | |||
| 46 | respIncomplete `shouldSatisfy` isJust | 46 | respIncomplete `shouldSatisfy` isJust |
| 47 | respMinInterval `shouldSatisfy` isNothing | 47 | respMinInterval `shouldSatisfy` isNothing |
| 48 | respWarning `shouldSatisfy` isNothing | 48 | respWarning `shouldSatisfy` isNothing |
| 49 | peerList `shouldSatisfy` L.all (isNothing . peerID) | 49 | peerList `shouldSatisfy` L.all (isNothing . peerId) |
| 50 | fromJust respComplete + fromJust respIncomplete `shouldBe` L.length peerList | 50 | fromJust respComplete + fromJust respIncomplete `shouldBe` L.length peerList |
| 51 | where | 51 | where |
| 52 | peerList = getPeerList respPeers | 52 | peerList = getPeerList respPeers |