5 use RT::Test nodata => 1, tests => 7;
10 my $s = RT::System->new(RT->SystemUser);
11 my $rights = $s->AvailableRights;
12 ok ($rights, "Rights defined");
13 ok ($rights->{'AdminUsers'},"AdminUsers right found");
14 ok ($rights->{'CreateTicket'},"CreateTicket right found");
15 ok ($rights->{'AdminGroupMembership'},"ModifyGroupMembers right found");
16 ok (!$rights->{'CasdasdsreateTicket'},"bogus right not found");
26 my $sys = RT::System->new();