5 use RT::Test tests => 14;
7 my ($baseurl, $m) = RT::Test->started_ok;
8 ok $m->login, "logged in";
10 $m->follow_link_ok({ id => 'tools-config-global-group-rights'});
15 my $principal_id = shift;
17 $agent->form_name('ModifyGroupRights');
18 my @inputs = $agent->current_form->find_input("SetRights-$principal_id-$object");
19 my @rights = sort grep $_, map $_->possible_values, grep $_ && $_->value, @inputs;
23 diag "load Everyone group";
24 my ($everyone, $everyone_gid);
26 $everyone = RT::Group->new( RT->SystemUser );
27 $everyone->LoadSystemInternalGroup('Everyone');
28 ok($everyone_gid = $everyone->id, "loaded 'everyone' group");
31 diag "revoke all global rights from Everyone group";
32 my @has = get_rights( $m, $everyone_gid, 'RT::System-1' );
34 $m->form_name('ModifyGroupRights');
35 $m->untick("SetRights-$everyone_gid-RT::System-1", $_) foreach @has;
38 is_deeply([get_rights( $m, $everyone_gid, 'RT::System-1' )], [], 'deleted all rights' );
40 ok(1, 'the group has no global rights');
43 diag "grant SuperUser right to everyone";
45 $m->form_name('ModifyGroupRights');
46 $m->tick("SetRights-$everyone_gid-RT::System-1", 'SuperUser');
49 $m->content_contains('Right Granted', 'got message');
50 RT::Principal::InvalidateACLCache();
51 ok($everyone->PrincipalObj->HasRight( Right => 'SuperUser', Object => $RT::System ), 'group has right');
52 is_deeply( [get_rights( $m, $everyone_gid, 'RT::System-1' )], ['SuperUser'], 'granted SuperUser right' );
55 diag "revoke the right";
57 $m->form_name('ModifyGroupRights');
58 $m->untick("SetRights-$everyone_gid-RT::System-1", 'SuperUser');
61 $m->content_contains('Right revoked', 'got message');
62 RT::Principal::InvalidateACLCache();
63 ok(!$everyone->PrincipalObj->HasRight( Right => 'SuperUser', Object => $RT::System ), 'group has no right');
64 is_deeply( [get_rights( $m, $everyone_gid, 'RT::System-1' )], [], 'revoked SuperUser right' );
68 diag "return rights the group had in the beginning";
70 $m->form_name('ModifyGroupRights');
71 $m->tick("SetRights-$everyone_gid-RT::System-1", $_) for @has;
74 $m->content_contains('Right Granted', 'got message');
76 [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ],
78 'returned back all rights'
81 ok(1, 'the group had no global rights, so nothing to return');