A nice set of additional assertion combinators would be something like: ```haskell assertEqualM :: (Eq a, Show a) => a -> IO a -> IO () ```