summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Tracker/MessageSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/MessageSpec.hs')
-rw-r--r--tests/Network/BitTorrent/Tracker/MessageSpec.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
index 62b4ab04..99518067 100644
--- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
@@ -10,17 +10,17 @@ import Network
10import Network.URI 10import Network.URI
11import Test.Hspec 11import Test.Hspec
12import Test.QuickCheck 12import Test.QuickCheck
13import Network.HTTP.Types.URI 13--import Network.HTTP.Types.URI
14 14
15import Data.Torrent.InfoHashSpec hiding (spec) 15import Data.Torrent.InfoHashSpec ()
16import Data.Torrent.ProgressSpec hiding (spec) 16import Data.Torrent.ProgressSpec ()
17import Network.BitTorrent.Core.PeerIdSpec hiding (spec) 17import Network.BitTorrent.Core.PeerIdSpec ()
18 18
19import Network.BitTorrent.Tracker.Message 19import Network.BitTorrent.Tracker.Message
20 20
21 21
22prop_bencode :: Eq a => BEncode a => a -> Bool 22--prop_bencode :: Eq a => BEncode a => a -> Bool
23prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a 23--prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a
24 24
25--prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool 25--prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool
26--prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a 26--prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a