diff options
Diffstat (limited to 'tests/Network/BitTorrent/Core/PeerIdSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/Core/PeerIdSpec.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/Network/BitTorrent/Core/PeerIdSpec.hs b/tests/Network/BitTorrent/Core/PeerIdSpec.hs index 4e9f1655..a4cc30b8 100644 --- a/tests/Network/BitTorrent/Core/PeerIdSpec.hs +++ b/tests/Network/BitTorrent/Core/PeerIdSpec.hs | |||
@@ -1,3 +1,4 @@ | |||
1 | {-# OPTIONS -fno-warn-orphans #-} | ||
1 | module Network.BitTorrent.Core.PeerIdSpec (spec) where | 2 | module Network.BitTorrent.Core.PeerIdSpec (spec) where |
2 | import Control.Applicative | 3 | import Control.Applicative |
3 | import Data.Text.Encoding as T | 4 | import Data.Text.Encoding as T |
@@ -10,9 +11,9 @@ import Network.BitTorrent.Core.PeerId | |||
10 | instance Arbitrary PeerId where | 11 | instance Arbitrary PeerId where |
11 | arbitrary = oneof | 12 | arbitrary = oneof |
12 | [ azureusStyle defaultClientId defaultVersionNumber | 13 | [ azureusStyle defaultClientId defaultVersionNumber |
13 | <$> pure "" | 14 | <$> (T.encodeUtf8 <$> arbitrary) |
14 | -- , shadowStyle 'X' defaultVersionNumber | 15 | , shadowStyle 'X' defaultVersionNumber |
15 | -- <$> (T.encodeUtf8 <$> arbitrary) | 16 | <$> (T.encodeUtf8 <$> arbitrary) |
16 | ] | 17 | ] |
17 | 18 | ||
18 | spec :: Spec | 19 | spec :: Spec |