1 files changed, 4 insertions, 1 deletions

diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs
index 8b3e7342..f1fa2c03 100644
--- a/tests/Data/Torrent/ClientSpec.hs
+++ b/tests/Data/Torrent/ClientSpec.hs
@@ -21,4 +21,7 @@ spec = do
     it "decode bitcomet style peer id" $ do
       clientInfo "exbc01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49"
       clientInfo "FUTB01xxxxxxxxxxxxxx" `shouldBe` "BitComet-48.49"
-      clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49"
\ No newline at end of file
+      clientInfo "exbc01LORDxxxxxxxxxx" `shouldBe` "BitLord-48.49"
+
+    it "decode opera style peer id" $ do
+      clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123"