diff options
Diffstat (limited to 'tests/Network/BitTorrent/Exchange/BlockSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/Exchange/BlockSpec.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/Network/BitTorrent/Exchange/BlockSpec.hs b/tests/Network/BitTorrent/Exchange/BlockSpec.hs new file mode 100644 index 00000000..0712a21d --- /dev/null +++ b/tests/Network/BitTorrent/Exchange/BlockSpec.hs | |||
@@ -0,0 +1,16 @@ | |||
1 | module Network.BitTorrent.Exchange.BlockSpec (spec) where | ||
2 | import Control.Applicative | ||
3 | import Test.Hspec | ||
4 | import Test.QuickCheck | ||
5 | |||
6 | import Network.BitTorrent.Exchange.Block | ||
7 | |||
8 | |||
9 | instance Arbitrary a => Arbitrary (Block a) where | ||
10 | arbitrary = Block <$> arbitrary <*> arbitrary <*> arbitrary | ||
11 | |||
12 | instance Arbitrary BlockIx where | ||
13 | arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary | ||
14 | |||
15 | spec :: Spec | ||
16 | spec = return () \ No newline at end of file | ||