Add multitracker session

2 files changed, 32 insertions, 0 deletions

diff --git a/tests/Network/BitTorrent/Tracker/CacheSpec.hs b/tests/Network/BitTorrent/Tracker/CacheSpec.hs
new file mode 100644
index 00000000..db015957
--- /dev/null
+++ b/tests/Network/BitTorrent/Tracker/CacheSpec.hs
@@ -0,0 +1,7 @@
+module Network.BitTorrent.Tracker.CacheSpec (spec) where
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  describe "Cached" $ do
+    return ()
diff --git a/tests/Network/BitTorrent/Tracker/SessionSpec.hs b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
new file mode 100644
index 00000000..0c75fcaa
--- /dev/null
+++ b/tests/Network/BitTorrent/Tracker/SessionSpec.hs
@@ -0,0 +1,25 @@
+module Network.BitTorrent.Tracker.SessionSpec (spec) where
+import Data.Default
+import Data.List as L
+import Network.URI
+import Test.Hspec
+
+import Data.Torrent
+import Network.BitTorrent.Tracker.List
+import Network.BitTorrent.Tracker.RPC.UDPSpec (trackerURIs)
+import Network.BitTorrent.Tracker.RPC
+import Network.BitTorrent.Tracker.Session
+
+
+trackers :: TrackerList URI
+trackers = trackerList def { tAnnounceList = Just [trackerURIs] }
+
+spec :: Spec
+spec = do
+  describe "Session" $ do
+    it "" $ do
+      withManager def def $ \ m -> do
+        s <- newSession def trackers
+        notify m s Started
+        peers <- askPeers m s
+        peers `shouldSatisfy` (not . L.null)
\ No newline at end of file