From 2a410ac4c7a176fa20d5b102be3002075079f199 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 23 Nov 2013 05:31:12 +0400 Subject: Opera peer id encoding style --- tests/Data/Torrent/ClientSpec.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'tests/Data') 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 it "decode bitcomet style peer id" $ do clientInfo "exbc01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" clientInfo "FUTB01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49" - clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49" \ No newline at end of file + clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49" + + it "decode opera style peer id" $ do + clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123" -- cgit v1.2.3