diff options
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 | ||