diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:14:13 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 02:14:13 +0400 |
| commit | 41f229b5746501738800d721fb19083e32516f8c (patch) | |
| tree | 8a469cf08a3d5d377fb8679bba759393cc7d8ef2 /tests/Data/Torrent/ClientSpec.hs | |
| parent | 923abc9ee7576f2d3e1b7e2b2d5a32ed5d2f21c9 (diff) | |
Remove ClientVersion newtype
Diffstat (limited to 'tests/Data/Torrent/ClientSpec.hs')
| -rw-r--r-- | tests/Data/Torrent/ClientSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index f02a3b1f..85ace5e0 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs | |||
| @@ -11,6 +11,6 @@ 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` |
| 14 | ClientInfo IAzureus (ClientVersion (Version [2060] [])) | 14 | ClientInfo IAzureus (Version [2060] []) |
| 15 | clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` | 15 | clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` |
| 16 | ClientInfo IBTSlave (ClientVersion (Version [0] [])) | 16 | ClientInfo IBTSlave (Version [0] []) |