[Client] Add spec item for openMagnet

2 files changed, 20 insertions, 0 deletions

diff --git a/bittorrent.cabal b/bittorrent.cabal
index 48e7a8cc..7058d704 100644
--- a/bittorrent.cabal
+++ b/bittorrent.cabal
@@ -190,6 +190,7 @@ test-suite spec
                        Data.Torrent.MetainfoSpec
                        Data.Torrent.PieceSpec
                        Data.Torrent.ProgressSpec
+                       Network.BitTorrent.Client.HandleSpec
                        Network.BitTorrent.CoreSpec
                        Network.BitTorrent.Core.FingerprintSpec
                        Network.BitTorrent.Core.NodeInfoSpec
diff --git a/tests/Network/BitTorrent/Client/HandleSpec.hs b/tests/Network/BitTorrent/Client/HandleSpec.hs
new file mode 100644
index 00000000..8e16d9b0
--- /dev/null
+++ b/tests/Network/BitTorrent/Client/HandleSpec.hs
@@ -0,0 +1,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 ()