Quick hacking gives this: sub model_ok { my ( $status, $msg, $test_comment ) = @_; $test_comment ||= ''; $status # ? pass $test_comment : fail "$test_comment - $msg"; } not ok 16 - change name - Permission denied # Failed test 'change name - Permission denied' # in t/00-model-User.t at line 80.