blob: 7ed8a9762eeb853d32c79d1fb1ecff49e56526cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Network.BitTorrent.Core.PeerIdSpec (spec) where
import Control.Applicative
import Test.Hspec
import Test.QuickCheck
import Network.BitTorrent.Core.PeerId
instance Arbitrary PeerId where
arbitrary = oneof
[ azureusStyle defaultClientId defaultVersionNumber <$> arbitrary
, shadowStyle 'X' defaultVersionNumber <$> arbitrary
]
spec :: Spec
spec = return ()
|