Add initial exchange session spec

2 files changed, 39 insertions, 0 deletions

diff --git a/bittorrent.cabal b/bittorrent.cabal
index 1562fdac..cc45e4c6 100644
--- a/bittorrent.cabal
+++ b/bittorrent.cabal
@@ -210,6 +210,7 @@ test-suite spec
                        Network.BitTorrent.Tracker.RPC.UDPSpec
                        Network.BitTorrent.Tracker.SessionSpec
                        Network.BitTorrent.Exchange.MessageSpec
+                       Network.BitTorrent.Exchange.SessionSpec
                        Network.BitTorrent.Exchange.Session.MetadataSpec
                        Network.BitTorrent.Exchange.WireSpec
                        System.Torrent.StorageSpec
diff --git a/tests/Network/BitTorrent/Exchange/SessionSpec.hs b/tests/Network/BitTorrent/Exchange/SessionSpec.hs
new file mode 100644
index 00000000..9f6f11a1
--- /dev/null
+++ b/tests/Network/BitTorrent/Exchange/SessionSpec.hs
@@ -0,0 +1,38 @@
+module Network.BitTorrent.Exchange.SessionSpec (spec) where
+import Test.Hspec
+
+import Data.Torrent
+import Network.BitTorrent.Core
+import Network.BitTorrent.Exchange.Session
+
+import Config
+
+
+nullLogger :: LogFun
+nullLogger _ _ _ _ = return ()
+
+getMyAddr :: IO (PeerAddr (Maybe IP))
+getMyAddr = undefined
+
+spec :: Spec
+spec = do
+  describe "metadata exchange" $ do
+    it "should fetch info dictionary" $ do
+      pending
+{-
+      Torrent {..} <- getTestTorrent
+      ses  <- newSession nullLogger addr "" tInfoDict
+      dict <- waitMetadata ses
+      closeSession ses
+      dict `shouldBe` tInfoDict
+-}
+
+    it "should serve info dictionary" $ do
+      pending
+
+  describe "content exchange" $ do
+    it "should fetch torrent content" $ do
+      pending
+
+    it "should serve torrent content" $ do
+      pending