summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Tracker
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-11-30 11:10:38 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-11-30 11:10:38 +0400
commit7f54308b57615bc61c0727538af2b5a54366eadb (patch)
tree8d47fb66163a8e9d114f1debf5711eca45500055 /tests/Network/BitTorrent/Tracker
parentd4ee859973b200d3f81ea56b2e40847ed8c93510 (diff)
Redesign tracker subsustem
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.hs7
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 #-}
2module Network.BitTorrent.Tracker.MessageSpec (spec) where 2module Network.BitTorrent.Tracker.RPC.MessageSpec (spec) where
3 3
4import Control.Applicative 4import Control.Applicative
5import Data.Word 5import Data.Word
@@ -11,7 +11,7 @@ import Data.Torrent.InfoHashSpec ()
11import Data.Torrent.ProgressSpec () 11import Data.Torrent.ProgressSpec ()
12import Network.BitTorrent.Core.PeerIdSpec () 12import Network.BitTorrent.Core.PeerIdSpec ()
13 13
14import Network.BitTorrent.Tracker.Message 14import 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 @@
1module Network.BitTorrent.Tracker.RPC.UDPSpec (spec) where
2import Test.Hspec
3
4spec :: Spec
5spec =
6 describe "UDP tracker client RPC" $ do
7 return () \ No newline at end of file