summaryrefslogtreecommitdiff
path: root/tests/Main.hs
diff options
context:
space:
mode:
authorSam T <pxqr.sta@gmail.com>2013-05-05 05:01:28 +0400
committerSam T <pxqr.sta@gmail.com>2013-05-05 05:01:28 +0400
commit7f63b5554fcf31d9b71c79fa9d0ee66d2ef95c94 (patch)
tree008058dc9bfe4b6f75cf1add4f493235a7ee8ed1 /tests/Main.hs
parentf4122eec550671a646310106224ee6523ea8e369 (diff)
~ Move bitfields to Data.
Diffstat (limited to 'tests/Main.hs')
-rw-r--r--tests/Main.hs2
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
9import Encoding 9import Encoding
10 10
11import Data.Bitfield as BT
11import Network.BitTorrent as BT 12import Network.BitTorrent as BT
12 13
14
13prop_bitfieldDiff0 :: Bitfield -> Bool 15prop_bitfieldDiff0 :: Bitfield -> Bool
14prop_bitfieldDiff0 b = (b `difference` empty (8 * bitfieldByteCount b)) == b 16prop_bitfieldDiff0 b = (b `difference` empty (8 * bitfieldByteCount b)) == b
15 17