diff options
Diffstat (limited to 'tests/Data/Torrent')
| -rw-r--r-- | tests/Data/Torrent/ClientSpec.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs index f1fa2c03..0ff74f6f 100644 --- a/tests/Data/Torrent/ClientSpec.hs +++ b/tests/Data/Torrent/ClientSpec.hs | |||
| @@ -25,3 +25,6 @@ spec = do | |||
| 25 | 25 | ||
| 26 | it "decode opera style peer id" $ do | 26 | it "decode opera style peer id" $ do |
| 27 | clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123" | 27 | clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123" |
| 28 | |||
| 29 | it "decode ML donkey style peer id" $ do | ||
| 30 | clientInfo "-ML2.7.2-xxxxxxxxxxx" `shouldBe` "MLdonkey-0" \ No newline at end of file | ||