4 use RT::Test nodata => 1, tests => 8;
5 my ($baseurl, $m) = RT::Test->started_ok;
7 my $url = $m->rt_base_url;
9 # create user and queue {{{
10 my $user_obj = RT::User->new(RT->SystemUser);
11 my ($ok, $msg) = $user_obj->LoadOrCreateByEmail('customer@example.com');
12 ok($ok, 'ACL test user creation');
13 $user_obj->SetName('customer');
14 $user_obj->SetPrivileged(1);
15 ($ok, $msg) = $user_obj->SetPassword('customer');
16 $user_obj->PrincipalObj->GrantRight(Right => 'ModifySelf');
17 my $currentuser = RT::CurrentUser->new($user_obj);
19 my $queue = RT::Queue->new(RT->SystemUser);
20 $queue->Create(Name => 'SearchQueue'.$$);
22 $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $queue)
23 for qw/SeeQueue ShowTicket OwnTicket/;
25 $user_obj->PrincipalObj->GrantRight(Right => $_, Object => $RT::System)
26 for qw/SubscribeDashboard CreateOwnDashboard SeeOwnDashboard ModifyOwnDashboard DeleteOwnDashboard/;
28 ok $m->login(customer => 'customer'), "logged in";
31 $m->follow_link_ok( {id => 'home-dashboard_create'});
32 $m->form_name('ModifyDashboard');
33 is_deeply([$m->current_form->find_input('Privacy')->possible_values], ["RT::User-" . $user_obj->Id], "the only selectable privacy is user");
34 $m->content_lacks('Delete', "Delete button hidden because we are creating");