diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/cobrand/zurich.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/cobrand/zurich.t b/t/cobrand/zurich.t index d61ec2ae0..87477b9f8 100644 --- a/t/cobrand/zurich.t +++ b/t/cobrand/zurich.t @@ -237,6 +237,13 @@ like $email->header('To'), qr/external_body\@example.org/, 'to line looks correc like $email->body, qr/External Body/, 'body has right name'; like $email->body, qr/test\@example.com/, 'body does contain email address'; $mech->clear_emails_ok; +$mech->log_out_ok; + +# Test only superuser can edit bodies +$user = $mech->log_in_ok( 'dm1@example.org') ; +$mech->get( '/admin/body/' . $zurich->id ); +is $mech->res->code, 404, "only superuser should be able to edit bodies"; +$mech->log_out_ok; $mech->delete_problems_for_body( 2 ); $mech->delete_user( 'dm1@example.org' ); |