diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-09 06:37:28 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-09 06:37:28 +0400 |
commit | b00f17874babc0a63a501a4fb33f4f9c8b7d5c7d (patch) | |
tree | f945b2fa2ada038a927debc3ba0b8f8fff8733ab /tests/Data/Torrent/BitfieldSpec.hs | |
parent | c147b181094937d780b93ca82fb8604deeb9a7cd (diff) |
Add stats method to PeerMessage class
Diffstat (limited to 'tests/Data/Torrent/BitfieldSpec.hs')
-rw-r--r-- | tests/Data/Torrent/BitfieldSpec.hs | 13 |
1 files changed, 13 insertions, 0 deletions
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 @@ | |||
1 | {-# OPTIONS -fno-warn-orphans #-} | ||
2 | module Data.Torrent.BitfieldSpec (spec) where | ||
3 | import Control.Applicative | ||
4 | import Test.Hspec | ||
5 | import Test.QuickCheck | ||
6 | |||
7 | import Data.Torrent.Bitfield | ||
8 | |||
9 | instance Arbitrary Bitfield where | ||
10 | arbitrary = fromBitmap <$> arbitrary | ||
11 | |||
12 | spec :: Spec | ||
13 | spec = return () \ No newline at end of file | ||