diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:31:12 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:31:12 +0400 |
commit | 2a410ac4c7a176fa20d5b102be3002075079f199 (patch) | |
tree | b36211c9129694dc1f7d57336f2044f8e21fe97e /tests/Data/Torrent/ClientSpec.hs | |
parent | 53fd4f2c4a3aa66d2f4cb36a673be3199002414e (diff) |
Opera peer id encoding style
Diffstat (limited to 'tests/Data/Torrent/ClientSpec.hs')
-rw-r--r-- | tests/Data/Torrent/ClientSpec.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index 8b3e7342..f1fa2c03 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs | |||
@@ -21,4 +21,7 @@ spec = do | |||
21 | it "decode bitcomet style peer id" $ do | 21 | it "decode bitcomet style peer id" $ do |
22 | clientInfo "exbc01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" | 22 | clientInfo "exbc01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" |
23 | clientInfo "FUTB01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" | 23 | clientInfo "FUTB01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" |
24 | clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49" \ No newline at end of file | 24 | clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49" |
25 | |||
26 | it "decode opera style peer id" $ do | ||
27 | clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123" | ||