blob: b3bdf1345f6f2ea363322ed162d723c940ef8bed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module Network.BitTorrent.Core.NodeSpec (spec) where
import Control.Applicative
import Test.Hspec
import Test.QuickCheck
import Network.BitTorrent.Core.Node
import Network.BitTorrent.Core.PeerAddrSpec ()
instance Arbitrary NodeId where
arbitrary = undefined
instance Arbitrary a => Arbitrary (NodeAddr a) where
arbitrary = NodeAddr <$> arbitrary <*> arbitrary
instance Arbitrary a => Arbitrary (NodeInfo a) where
arbitrary = NodeInfo <$> arbitrary <*> arbitrary
spec :: Spec
spec = return ()
|
