From 708938679954a5d5f9def82e1fa873c19ed662df Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 23 Nov 2013 02:53:05 +0400 Subject: Add instance IsString for ClientInfo --- tests/Data/Torrent/ClientSpec.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'tests/Data/Torrent/ClientSpec.hs') 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 spec = do describe "client info" $ do it "decode azureus encoded peer id" $ do - clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` - ClientInfo IAzureus (Version [2060] []) - clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` - ClientInfo IBTSlave (Version [0] []) + clientInfo "-AZ2060-xxxxxxxxxxxx" `shouldBe` "Azureus-2060" + clientInfo "-BS0000-xxxxxxxxxxxx" `shouldBe` "BTSlave-0" -- cgit v1.2.3