diff options
Diffstat (limited to 'tests/Network/BitTorrent/Tracker')
-rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/MessageSpec.hs (renamed from tests/Network/BitTorrent/Tracker/MessageSpec.hs) | 4 | ||||
-rw-r--r-- | tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | 7 |
2 files changed, 9 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/MessageSpec.hs index f1d9130c..8e95286a 100644 --- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs +++ b/tests/Network/BitTorrent/Tracker/RPC/MessageSpec.hs | |||
@@ -1,5 +1,5 @@ | |||
1 | {-# OPTIONS -fno-warn-orphans #-} | 1 | {-# OPTIONS -fno-warn-orphans #-} |
2 | module Network.BitTorrent.Tracker.MessageSpec (spec) where | 2 | module Network.BitTorrent.Tracker.RPC.MessageSpec (spec) where |
3 | 3 | ||
4 | import Control.Applicative | 4 | import Control.Applicative |
5 | import Data.Word | 5 | import Data.Word |
@@ -11,7 +11,7 @@ import Data.Torrent.InfoHashSpec () | |||
11 | import Data.Torrent.ProgressSpec () | 11 | import Data.Torrent.ProgressSpec () |
12 | import Network.BitTorrent.Core.PeerIdSpec () | 12 | import Network.BitTorrent.Core.PeerIdSpec () |
13 | 13 | ||
14 | import Network.BitTorrent.Tracker.Message | 14 | import Network.BitTorrent.Tracker.RPC.Message |
15 | 15 | ||
16 | 16 | ||
17 | --prop_bencode :: Eq a => BEncode a => a -> Bool | 17 | --prop_bencode :: Eq a => BEncode a => a -> Bool |
diff --git a/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs new file mode 100644 index 00000000..4cbaa09d --- /dev/null +++ b/tests/Network/BitTorrent/Tracker/RPC/UDPSpec.hs | |||
@@ -0,0 +1,7 @@ | |||
1 | module Network.BitTorrent.Tracker.RPC.UDPSpec (spec) where | ||
2 | import Test.Hspec | ||
3 | |||
4 | spec :: Spec | ||
5 | spec = | ||
6 | describe "UDP tracker client RPC" $ do | ||
7 | return () \ No newline at end of file | ||