tests/Network/BitTorrent/Client/HandleSpec.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Network.BitTorrent.Client.HandleSpec (spec) where
import Data.Default
import Test.Hspec

import Data.Torrent.Magnet
import Network.BitTorrent.Client
import Network.BitTorrent.Client.Handle

data_dir :: FilePath
data_dir = "data"

spec :: Spec
spec = do
  describe "openMagnet" $ do
    it "should add new infohash to index" $ do
      simpleClient $ do
        _ <- openMagnet data_dir (nullMagnet def)
        _ <- getHandle def
        return ()