blob: 4e9f165589e9d8eadd88cd4c4564ee7542978ab7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module Network.BitTorrent.Core.PeerIdSpec (spec) where
import Control.Applicative
import Data.Text.Encoding as T
import Test.Hspec
import Test.QuickCheck
import Test.QuickCheck.Instances ()
import Network.BitTorrent.Core.PeerId
instance Arbitrary PeerId where
arbitrary = oneof
[ azureusStyle defaultClientId defaultVersionNumber
<$> pure ""
-- , shadowStyle 'X' defaultVersionNumber
-- <$> (T.encodeUtf8 <$> arbitrary)
]
spec :: Spec
spec = return ()
|
