summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Data/Torrent/MetainfoSpec.hs1
-rw-r--r--tests/Data/Torrent/PieceSpec.hs2
-rw-r--r--tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs5
-rw-r--r--tests/System/Torrent/StorageSpec.hs3
4 files changed, 4 insertions, 7 deletions
diff --git a/tests/Data/Torrent/MetainfoSpec.hs b/tests/Data/Torrent/MetainfoSpec.hs
index 537b3f99..1a8f97c7 100644
--- a/tests/Data/Torrent/MetainfoSpec.hs
+++ b/tests/Data/Torrent/MetainfoSpec.hs
@@ -14,7 +14,6 @@ import Test.QuickCheck
14import Test.QuickCheck.Instances () 14import Test.QuickCheck.Instances ()
15 15
16import Data.Torrent 16import Data.Torrent
17import Data.Torrent.Piece
18import Data.Torrent.LayoutSpec () 17import Data.Torrent.LayoutSpec ()
19import Network.BitTorrent.Core.NodeInfoSpec () 18import Network.BitTorrent.Core.NodeInfoSpec ()
20 19
diff --git a/tests/Data/Torrent/PieceSpec.hs b/tests/Data/Torrent/PieceSpec.hs
index ef1f2938..d3933396 100644
--- a/tests/Data/Torrent/PieceSpec.hs
+++ b/tests/Data/Torrent/PieceSpec.hs
@@ -3,7 +3,7 @@ module Data.Torrent.PieceSpec (spec) where
3import Control.Applicative 3import Control.Applicative
4import Test.Hspec 4import Test.Hspec
5import Test.QuickCheck 5import Test.QuickCheck
6import Data.Torrent.Piece 6import Data.Torrent
7 7
8 8
9instance Arbitrary a => Arbitrary (Piece a) where 9instance Arbitrary a => Arbitrary (Piece a) where
diff --git a/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs b/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
index 975ceb5b..5392d74b 100644
--- a/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
+++ b/tests/Network/BitTorrent/Exchange/Session/MetadataSpec.hs
@@ -7,8 +7,7 @@ import Test.Hspec
7import Test.QuickCheck 7import Test.QuickCheck
8 8
9import Data.BEncode as BE 9import Data.BEncode as BE
10import Data.Torrent 10import Data.Torrent as Torrent
11import Data.Torrent.Piece as P
12import Network.BitTorrent.Core 11import Network.BitTorrent.Core
13import Network.BitTorrent.Exchange.Message 12import Network.BitTorrent.Exchange.Message
14import Network.BitTorrent.Exchange.Session.Metadata 13import Network.BitTorrent.Exchange.Session.Metadata
@@ -36,7 +35,7 @@ simulateFetch :: InfoDict -> Updates (Maybe InfoDict)
36simulateFetch dict = go 35simulateFetch dict = go
37 where 36 where
38 blocks = chunkBy metadataPieceSize (BL.toStrict (BE.encode dict)) 37 blocks = chunkBy metadataPieceSize (BL.toStrict (BE.encode dict))
39 packPiece ix = P.Piece ix (blocks !! ix) 38 packPiece ix = Torrent.Piece ix (blocks !! ix)
40 ih = idInfoHash dict 39 ih = idInfoHash dict
41 40
42 go = do 41 go = do
diff --git a/tests/System/Torrent/StorageSpec.hs b/tests/System/Torrent/StorageSpec.hs
index ebf4fe3e..96f1b036 100644
--- a/tests/System/Torrent/StorageSpec.hs
+++ b/tests/System/Torrent/StorageSpec.hs
@@ -7,9 +7,8 @@ import System.Directory
7import System.IO.Unsafe 7import System.IO.Unsafe
8import Test.Hspec 8import Test.Hspec
9 9
10import Data.Torrent.Bitfield as BF
11import Data.Torrent 10import Data.Torrent
12import Data.Torrent.Piece 11import Data.Torrent.Bitfield as BF
13import System.Torrent.Storage 12import System.Torrent.Storage
14 13
15 14