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 | |
parent | f4122eec550671a646310106224ee6523ea8e369 (diff) |
~ Move bitfields to Data.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Encoding.hs | 1 | ||||
-rw-r--r-- | tests/Main.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/tests/Encoding.hs b/tests/Encoding.hs index bd452975..fe0e1d7e 100644 --- a/tests/Encoding.hs +++ b/tests/Encoding.hs | |||
@@ -14,6 +14,7 @@ import Test.QuickCheck | |||
14 | 14 | ||
15 | import Network.URI | 15 | import Network.URI |
16 | 16 | ||
17 | import Data.Bitfield | ||
17 | import Data.Torrent | 18 | import Data.Torrent |
18 | import Network.BitTorrent | 19 | import Network.BitTorrent |
19 | 20 | ||
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 | ||