diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:53:05 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:53:05 +0400 |
| commit | 708938679954a5d5f9def82e1fa873c19ed662df (patch) | |
| tree | 5edc53d4ad98fd61366169b34f2dd6bc5cdbc6d3 /tests/Data | |
| parent | 41f229b5746501738800d721fb19083e32516f8c (diff) | |
Add instance IsString for ClientInfo
Diffstat (limited to 'tests/Data')
| -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] []) | ||