diff options
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/MessageSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/MessageSpec.hs | 12 |
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 | |||
10 | import Network.URI | 10 | import Network.URI |
11 | import Test.Hspec | 11 | import Test.Hspec |
12 | import Test.QuickCheck | 12 | import Test.QuickCheck |
13 | import Network.HTTP.Types.URI | 13 | --import Network.HTTP.Types.URI |
14 | 14 | ||
15 | import Data.Torrent.InfoHashSpec hiding (spec) | 15 | import Data.Torrent.InfoHashSpec () |
16 | import Data.Torrent.ProgressSpec hiding (spec) | 16 | import Data.Torrent.ProgressSpec () |
17 | import Network.BitTorrent.Core.PeerIdSpec hiding (spec) | 17 | import Network.BitTorrent.Core.PeerIdSpec () |
18 | 18 | ||
19 | import Network.BitTorrent.Tracker.Message | 19 | import Network.BitTorrent.Tracker.Message |
20 | 20 | ||
21 | 21 | ||
22 | prop_bencode :: Eq a => BEncode a => a -> Bool | 22 | --prop_bencode :: Eq a => BEncode a => a -> Bool |
23 | prop_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 |