sertString :: CaughtMonadIO m => String -> m ()
assertString s = unless (null s) (assertFailure s)

assertString :: CaughtMonadIO m => String -> m ()
assertString s = unless (null s) (assertFailure s)
assertString s = unless (null s) (assertFailure s)