blob: 890ee95e8a2067426047307a40535d68daf5e481 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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` "Azureus-2060"
clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` "BTSlave-0"
|