summaryrefslogtreecommitdiff
path: root/tests
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
parentf4122eec550671a646310106224ee6523ea8e369 (diff)
~ Move bitfields to Data.
Diffstat (limited to 'tests')
-rw-r--r--tests/Encoding.hs1
-rw-r--r--tests/Main.hs2
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
15import Network.URI 15import Network.URI
16 16
17import Data.Bitfield
17import Data.Torrent 18import Data.Torrent
18import Network.BitTorrent 19import 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
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