diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:22:59 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:22:59 +0400 |
| commit | 53fd4f2c4a3aa66d2f4cb36a673be3199002414e (patch) | |
| tree | c2c3f09f8b44c53f03e0b2ea6b3b51c12dfc7d59 /tests/Data/Torrent/ClientSpec.hs | |
| parent | 0d45d13454644224d6eb461225ef938b84adab6a (diff) | |
Add BitComet peer id encoding style
Diffstat (limited to 'tests/Data/Torrent/ClientSpec.hs')
| -rw-r--r-- | tests/Data/Torrent/ClientSpec.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index c4c08798..8b3e7342 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs | |||
| @@ -17,3 +17,8 @@ spec = do | |||
| 17 | it "decode Shad0w style peer id" $ do | 17 | it "decode Shad0w style peer id" $ do |
| 18 | clientInfo "S58B-----xxxxxxxxxxx" `shouldBe` "Shadow-5.8.11" | 18 | clientInfo "S58B-----xxxxxxxxxxx" `shouldBe` "Shadow-5.8.11" |
| 19 | clientInfo "T58B-----xxxxxxxxxxx" `shouldBe` "BitTornado-5.8.11" | 19 | clientInfo "T58B-----xxxxxxxxxxx" `shouldBe` "BitTornado-5.8.11" |
| 20 | |||
| 21 | it "decode bitcomet style peer id" $ do | ||
| 22 | clientInfo "exbc01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" | ||
| 23 | clientInfo "FUTB01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" | ||
| 24 | clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49" \ No newline at end of file | ||