summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Exchange
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/Exchange')
-rw-r--r--tests/Network/BitTorrent/Exchange/SessionSpec.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/Exchange/SessionSpec.hs b/tests/Network/BitTorrent/Exchange/SessionSpec.hs
index 745649fe..f80fc864 100644
--- a/tests/Network/BitTorrent/Exchange/SessionSpec.hs
+++ b/tests/Network/BitTorrent/Exchange/SessionSpec.hs
@@ -4,7 +4,7 @@ import Test.Hspec
4 4
5import Data.Torrent 5import Data.Torrent
6import Network.BitTorrent.Core 6import Network.BitTorrent.Core
7import Network.BitTorrent.Exchange.Session as S 7import Network.BitTorrent.Exchange.Session
8 8
9import Config 9import Config
10 10
@@ -20,7 +20,7 @@ spec = do
20 Torrent {..} <- getTestTorrent 20 Torrent {..} <- getTestTorrent
21 myAddr <- getMyAddr 21 myAddr <- getMyAddr
22 ses <- newSession nullLogger myAddr "" tInfoDict 22 ses <- newSession nullLogger myAddr "" tInfoDict
23 S.insert addr ses 23 connect addr ses
24 dict <- waitMetadata ses 24 dict <- waitMetadata ses
25 closeSession ses 25 closeSession ses
26 dict `shouldBe` tInfoDict 26 dict `shouldBe` tInfoDict