diff options
Diffstat (limited to 'tests/Network/BitTorrent/Exchange')
-rw-r--r-- | tests/Network/BitTorrent/Exchange/SessionSpec.hs | 4 |
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 | ||
5 | import Data.Torrent | 5 | import Data.Torrent |
6 | import Network.BitTorrent.Core | 6 | import Network.BitTorrent.Core |
7 | import Network.BitTorrent.Exchange.Session as S | 7 | import Network.BitTorrent.Exchange.Session |
8 | 8 | ||
9 | import Config | 9 | import 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 |