From 7edacaaedd432c71169bbd59c9c0948e9a83da26 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sat, 8 Feb 2014 07:19:31 +0400
Subject: Add multitracker session

---
 tests/Network/BitTorrent/Tracker/CacheSpec.hs   |  7 +++++++
 tests/Network/BitTorrent/Tracker/SessionSpec.hs | 25 +++++++++++++++++++++++++
 2 files changed, 32 insertions(+)
 create mode 100644 tests/Network/BitTorrent/Tracker/CacheSpec.hs
 create mode 100644 tests/Network/BitTorrent/Tracker/SessionSpec.hs

(limited to 'tests')

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
-- 
cgit v1.2.3