Add initial exchange session spec

1 files changed, 38 insertions, 0 deletions

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