From 55d59c4857dee7e2ab091405e79854c944c7e7e3 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 26 Apr 2014 07:26:36 +0400 Subject: Bump conduit dependency --- tests/Network/BitTorrent/DHT/SessionSpec.hs | 1 + tests/Network/BitTorrent/Exchange/DownloadSpec.hs | 14 +------------- 2 files changed, 2 insertions(+), 13 deletions(-) (limited to 'tests/Network') diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs index 522bd8df..a5376c32 100644 --- a/tests/Network/BitTorrent/DHT/SessionSpec.hs +++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs @@ -5,6 +5,7 @@ import Control.Concurrent import Control.Exception import Control.Monad.Reader import Control.Monad.Trans.Resource +import Data.Conduit.Lazy import Data.Default import Data.List as L import Test.Hspec diff --git a/tests/Network/BitTorrent/Exchange/DownloadSpec.hs b/tests/Network/BitTorrent/Exchange/DownloadSpec.hs index a0d40af3..d46f2034 100644 --- a/tests/Network/BitTorrent/Exchange/DownloadSpec.hs +++ b/tests/Network/BitTorrent/Exchange/DownloadSpec.hs @@ -33,19 +33,7 @@ withUpdates m = do undefined simulateFetch :: InfoDict -> Updates s (Maybe InfoDict) -simulateFetch dict = go - where - blocks = chunkBy metadataPieceSize (BL.toStrict (BE.encode dict)) - packPiece ix = Torrent.Piece ix (blocks !! ix) - ih = idInfoHash dict - - go = do - mix <- scheduleBlock undefined undefined - case mix of - Nothing -> return Nothing - Just ix -> do - mdict <- pushBlock undefined (packPiece ix) - maybe go (return . Just) mdict +simulateFetch dict = undefined spec :: Spec spec = do -- cgit v1.2.3