From e3ee3bf4b174363f55c3af2195bd191e9c0d25b7 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 23 Nov 2013 04:29:59 +0400 Subject: Add mainline client implementation id --- tests/Data/Torrent/ClientSpec.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'tests/Data/Torrent/ClientSpec.hs') diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index 890ee95e..94335ae9 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs @@ -9,6 +9,10 @@ import Network.BitTorrent.Core.PeerId spec :: Spec spec = do describe "client info" $ do + it "decode mainline encoded peer id" $ do + clientInfo "M4-3-6--xxxxxxxxxxxx" `shouldBe` "Mainline-4.3.6" + clientInfo "M4-20-8-xxxxxxxxxxxx" `shouldBe` "Mainline-4.20.8" + it "decode azureus encoded peer id" $ do clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` "Azureus-2060" clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` "BTSlave-0" -- cgit v1.2.3