diff options
Diffstat (limited to 'rt/t/web/dashboards-permissions.t')
| -rw-r--r-- | rt/t/web/dashboards-permissions.t | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/rt/t/web/dashboards-permissions.t b/rt/t/web/dashboards-permissions.t index 172404289..f2e59e5cc 100644 --- a/rt/t/web/dashboards-permissions.t +++ b/rt/t/web/dashboards-permissions.t @@ -2,13 +2,13 @@ use strict; use warnings; -use RT::Test tests => 7; +use RT::Test nodata => 1, tests => 8; my ($baseurl, $m) = RT::Test->started_ok; my $url = $m->rt_base_url; # create user and queue {{{ -my $user_obj = RT::User->new($RT::SystemUser); +my $user_obj = RT::User->new(RT->SystemUser); my ($ok, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com'); ok($ok, 'ACL test user creation'); $user_obj->SetName('customer'); @@ -17,7 +17,7 @@ $user_obj->SetPrivileged(1); $user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf'); my $currentuser = RT::CurrentUser->new($user_obj); -my $queue = RT::Queue->new($RT::SystemUser); +my $queue = RT::Queue->new(RT->SystemUser); $queue->Create(Name => 'SearchQueue'.$$); $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue) @@ -25,13 +25,11 @@ $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue) $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System) for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/; -# }}} ok $m->login(customer => 'customer'), "logged in"; -$m->get_ok("$url/Dashboards"); -$m->follow_link_ok({text => "New"}); +$m->follow_link_ok( {id => 'home-dashboard_create'}); $m->form_name('ModifyDashboard'); is_deeply([$m->current_form->find_input('Privacy')->possible_values], ["RT::User-" . $user_obj->Id], "the only selectable privacy is user"); $m->content_lacks('Delete', "Delete button hidden because we are creating"); |