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 | |
| parent | 53fd4f2c4a3aa66d2f4cb36a673be3199002414e (diff) | |
Opera peer id encoding style
Diffstat (limited to 'tests/Data')
| -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" | ||