Add spec for client info extraction from azureus encoded peer id

1 files changed, 16 insertions, 0 deletions

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] []))