blob: 0712a21d09502da3c117cb02da826905f2124a22 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Network.BitTorrent.Exchange.BlockSpec (spec) where
import Control.Applicative
import Test.Hspec
import Test.QuickCheck
import Network.BitTorrent.Exchange.Block
instance Arbitrary a => Arbitrary (Block a) where
arbitrary = Block <$> arbitrary <*> arbitrary <*> arbitrary
instance Arbitrary BlockIx where
arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary
spec :: Spec
spec = return ()
|
