diff --git a/tests/Control/Monad/Catch/Tests.hs b/tests/Control/Monad/Catch/Tests.hs
index 6773b4ed22e99bb3853e998f2a46cc6ecc1086dd..619955a96fe364ee04035917bd9b1c48dfe968d4 100644
--- a/tests/Control/Monad/Catch/Tests.hs
+++ b/tests/Control/Monad/Catch/Tests.hs
@@ -88,7 +88,8 @@ tests = testGroup "Control.Monad.Catch.Tests" $
         , MSpec "STM" $ io . atomically
         --, MSpec "ContT IO" $ \m -> io $ runContT m return
 
-        , MSpec "CatchT Indentity" $ fromRight . runCatch
+        , MSpec "CatchT Identity" $ fromRight . runCatch
+        , MSpec "Either SomeException" fromRight
         ]
 
     tfst :: (Property, ()) -> Property = fst