diff options
Diffstat (limited to 'tests/Data/Torrent/MetainfoSpec.hs')
-rw-r--r-- | tests/Data/Torrent/MetainfoSpec.hs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/tests/Data/Torrent/MetainfoSpec.hs b/tests/Data/Torrent/MetainfoSpec.hs index 636bb6b1..b5716e07 100644 --- a/tests/Data/Torrent/MetainfoSpec.hs +++ b/tests/Data/Torrent/MetainfoSpec.hs | |||
@@ -16,7 +16,7 @@ import Test.QuickCheck.Instances () | |||
16 | import Data.Torrent.Piece | 16 | import Data.Torrent.Piece |
17 | import Data.Torrent.Layout | 17 | import Data.Torrent.Layout |
18 | import Data.Torrent | 18 | import Data.Torrent |
19 | 19 | import Data.Torrent.LayoutSpec () | |
20 | 20 | ||
21 | {----------------------------------------------------------------------- | 21 | {----------------------------------------------------------------------- |
22 | -- Common | 22 | -- Common |
@@ -38,18 +38,6 @@ instance Arbitrary URI where | |||
38 | -- Instances | 38 | -- Instances |
39 | -----------------------------------------------------------------------} | 39 | -----------------------------------------------------------------------} |
40 | 40 | ||
41 | instance Arbitrary FileSize where | ||
42 | arbitrary = fromIntegral <$> (arbitrary :: Gen Int) | ||
43 | |||
44 | instance Arbitrary a => Arbitrary (FileInfo a) where | ||
45 | arbitrary = FileInfo <$> arbitrary <*> arbitrary <*> arbitrary | ||
46 | |||
47 | instance Arbitrary LayoutInfo where | ||
48 | arbitrary = oneof | ||
49 | [ SingleFile <$> arbitrary | ||
50 | , MultiFile <$> arbitrary <*> arbitrary | ||
51 | ] | ||
52 | |||
53 | instance Arbitrary HashArray where | 41 | instance Arbitrary HashArray where |
54 | arbitrary = HashArray <$> arbitrary | 42 | arbitrary = HashArray <$> arbitrary |
55 | 43 | ||