diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:34:09 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 05:34:09 +0400 |
| commit | 087e3435877445c5776e035ec08a26edefb3f7a1 (patch) | |
| tree | 5b55eaae46e5a24304a32f067668a68ddd552bb3 /tests/Data/Torrent | |
| parent | 2a410ac4c7a176fa20d5b102be3002075079f199 (diff) | |
ML donkey encoding style
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 | ||