6 use RT::Test tests => 12;
8 my $q = RT::Queue->new($RT::SystemUser);
9 my ($id,$msg) =$q->Create(Name => "CF-Rights-".$$);
12 my $cf = RT::CustomField->new($RT::SystemUser);
13 ($id,$msg) = $cf->Create(Name => 'CF-'.$$, Type => 'Select', MaxValues => '1', Queue => $q->id);
17 ($id,$msg) =$cf->AddValue(Name => 'First');
20 my $u = RT::User->new($RT::SystemUser);
21 ($id,$msg) = $u->Create( Name => 'User1', Privileged => 1 );
24 ($id,$msg) = $u->PrincipalObj->GrantRight( Object => $cf, Right => 'SeeCustomField' );
27 my $ucf = RT::CustomField->new($u);
28 ($id,$msg) = $ucf->Load( $cf->Id );
31 my $cfv = $ucf->Values->First;
33 ($id,$msg) = $cfv->SetName( 'First1' );
36 ($id,$msg) = $u->PrincipalObj->GrantRight( Object => $cf, Right => 'AdminCustomFieldValues' );
39 ($id,$msg) = $cfv->SetName( 'First2' );
42 ($id,$msg) = $u->PrincipalObj->RevokeRight( Object => $cf, Right => 'AdminCustomFieldValues' );
45 ($id,$msg) = $u->PrincipalObj->GrantRight( Object => $cf, Right => 'AdminCustomField' );
48 ($id,$msg) = $cfv->SetName( 'First3' );