From b00f17874babc0a63a501a4fb33f4f9c8b7d5c7d Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Mon, 9 Dec 2013 06:37:28 +0400 Subject: Add stats method to PeerMessage class --- tests/Data/Torrent/BitfieldSpec.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 tests/Data/Torrent/BitfieldSpec.hs (limited to 'tests/Data/Torrent/BitfieldSpec.hs') diff --git a/tests/Data/Torrent/BitfieldSpec.hs b/tests/Data/Torrent/BitfieldSpec.hs new file mode 100644 index 00000000..093f6f19 --- /dev/null +++ b/tests/Data/Torrent/BitfieldSpec.hs @@ -0,0 +1,13 @@ +{-# OPTIONS -fno-warn-orphans #-} +module Data.Torrent.BitfieldSpec (spec) where +import Control.Applicative +import Test.Hspec +import Test.QuickCheck + +import Data.Torrent.Bitfield + +instance Arbitrary Bitfield where + arbitrary = fromBitmap <$> arbitrary + +spec :: Spec +spec = return () \ No newline at end of file -- cgit v1.2.3