diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-05-05 05:01:28 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-05-05 05:01:28 +0400 |
commit | 7f63b5554fcf31d9b71c79fa9d0ee66d2ef95c94 (patch) | |
tree | 008058dc9bfe4b6f75cf1add4f493235a7ee8ed1 /tests/Main.hs | |
parent | f4122eec550671a646310106224ee6523ea8e369 (diff) |
~ Move bitfields to Data.
Diffstat (limited to 'tests/Main.hs')
-rw-r--r-- | tests/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index 5a9a50ee..ff3d8260 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
@@ -8,8 +8,10 @@ import Test.Framework.Providers.QuickCheck2 (testProperty) | |||
8 | 8 | ||
9 | import Encoding | 9 | import Encoding |
10 | 10 | ||
11 | import Data.Bitfield as BT | ||
11 | import Network.BitTorrent as BT | 12 | import Network.BitTorrent as BT |
12 | 13 | ||
14 | |||
13 | prop_bitfieldDiff0 :: Bitfield -> Bool | 15 | prop_bitfieldDiff0 :: Bitfield -> Bool |
14 | prop_bitfieldDiff0 b = (b `difference` empty (8 * bitfieldByteCount b)) == b | 16 | prop_bitfieldDiff0 b = (b `difference` empty (8 * bitfieldByteCount b)) == b |
15 | 17 | ||