summaryrefslogtreecommitdiff
path: root/tests/Data/Torrent/ClientSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Data/Torrent/ClientSpec.hs')
-rw-r--r--tests/Data/Torrent/ClientSpec.hs4
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] [])