diff options
Diffstat (limited to 'tests/Data/Torrent/ClientSpec.hs')
-rw-r--r-- | tests/Data/Torrent/ClientSpec.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index 85ace5e0..890ee95e 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs | |||
@@ -10,7 +10,5 @@ spec :: Spec | |||
10 | spec = do | 10 | spec = do |
11 | describe "client info" $ do | 11 | describe "client info" $ do |
12 | it "decode azureus encoded peer id" $ do | 12 | it "decode azureus encoded peer id" $ do |
13 | clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` | 13 | clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` "Azureus-2060" |
14 | ClientInfo IAzureus (Version [2060] []) | 14 | clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` "BTSlave-0" |
15 | clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` | ||
16 | ClientInfo IBTSlave (Version [0] []) | ||