From 923abc9ee7576f2d3e1b7e2b2d5a32ed5d2f21c9 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 23 Nov 2013 02:04:07 +0400 Subject: Add spec for client info extraction from azureus encoded peer id --- tests/Data/Torrent/ClientSpec.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/Data/Torrent/ClientSpec.hs (limited to 'tests/Data/Torrent/ClientSpec.hs') diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs new file mode 100644 index 00000000..f02a3b1f --- /dev/null +++ b/tests/Data/Torrent/ClientSpec.hs @@ -0,0 +1,16 @@ +module Data.Torrent.ClientSpec (spec) where + +import Data.Version +import Test.Hspec + +import Data.Torrent.Client +import Network.BitTorrent.Core.PeerId + +spec :: Spec +spec = do + describe "client info" $ do + it "decode azureus encoded peer id" $ do + clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` + ClientInfo IAzureus (ClientVersion (Version [2060] [])) + clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` + ClientInfo IBTSlave (ClientVersion (Version [0] [])) -- cgit v1.2.3