[jifty-devel] Re: More warnings when update permission fails.

[Edmund von der Burg]

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.