blob: 1ba772f662433dd84caba0d349b71ff906132d45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# OPTIONS -fno-warn-orphans #-}
module Network.BitTorrent.Exchange.BitfieldSpec (spec) where
import Control.Applicative
import Data.ByteString.Arbitrary
import Test.Hspec
import Test.QuickCheck
import Network.BitTorrent.Exchange.Bitfield
instance Arbitrary Bitfield where
arbitrary = fromBitmap . fromABS <$> arbitrary
spec :: Spec
spec = return ()
|
