blob: c4c08798d65e8050c574d215fdb87fbf76c0c46b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- | see <http://bittorrent.org/beps/bep_0020.html>
module Data.Torrent.ClientSpec (spec) where
import Test.Hspec
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"
it "decode Shad0w style peer id" $ do
clientInfo "S58B-----xxxxxxxxxxx" `shouldBe` "Shadow-5.8.11"
clientInfo "T58B-----xxxxxxxxxxx" `shouldBe` "BitTornado-5.8.11"
|