diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-03 00:36:33 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-03 00:36:33 +0400 |
| commit | 14a90a6848b4fb39cd61459746ca8ea136adffb0 (patch) | |
| tree | 8dfbef004437265f87df33a65b2b2049f38d6576 /tests/Network/BitTorrent/Tracker/SessionSpec.hs | |
| parent | 39d73a4e40fede12f41de6e2a2f682893809b88b (diff) | |
[Tracker] Update spec
Diffstat (limited to 'tests/Network/BitTorrent/Tracker/SessionSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/SessionSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Network/BitTorrent/Tracker/SessionSpec.hs b/tests/Network/BitTorrent/Tracker/SessionSpec.hs index 2c471752..72936ee7 100644 --- a/tests/Network/BitTorrent/Tracker/SessionSpec.hs +++ b/tests/Network/BitTorrent/Tracker/SessionSpec.hs | |||
| @@ -16,11 +16,11 @@ testSession :: Bool -> (Manager -> Session -> IO ()) -> IO () | |||
| 16 | testSession runEmpty action = do | 16 | testSession runEmpty action = do |
| 17 | t <- getTestTorrent | 17 | t <- getTestTorrent |
| 18 | withManager def def $ \ m -> do | 18 | withManager def def $ \ m -> do |
| 19 | withSession (idInfoHash (tInfoDict t)) (trackerList t) $ \ s -> | 19 | withSession m (idInfoHash (tInfoDict t)) (trackerList t) $ \ s -> |
| 20 | action m s | 20 | action m s |
| 21 | 21 | ||
| 22 | when runEmpty $ do | 22 | when runEmpty $ do |
| 23 | withSession (idInfoHash (tInfoDict t)) def $ \ s -> | 23 | withSession m (idInfoHash (tInfoDict t)) def $ \ s -> |
| 24 | action m s | 24 | action m s |
| 25 | 25 | ||
| 26 | spec :: Spec | 26 | spec :: Spec |