blob: f80fc8643dbec2015f465f426b9f7df649c08d78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
{-# LANGUAGE RecordWildCards #-}
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 _ _ x _ = print x
spec :: Spec
spec = do
describe "metadata exchange" $ do
it "should fetch info dictionary" $ do
withRemoteAddr $ \ addr -> do
Torrent {..} <- getTestTorrent
myAddr <- getMyAddr
ses <- newSession nullLogger myAddr "" tInfoDict
connect addr ses
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
|