4 use RT::Test tests => 25;
6 my $root = RT::Test->load_or_create_user( Name => 'root' );
7 my $group_foo = RT::Group->new($RT::SystemUser);
8 my ( $ret, $msg ) = $group_foo->CreateUserDefinedGroup(
10 Description => 'group_foo',
12 ok( $ret, 'created group_foo' );
14 my $ticket = RT::Test->create_ticket(
15 Subject => 'test modify people',
17 Requestor => $root->id,
21 my $user = RT::Test->load_or_create_user(
23 Password => 'password',
25 ok $user && $user->id, 'loaded or created user';
29 { Principal => $user, Right => [qw(SeeQueue ShowTicket ModifyTicket)] },
34 my ( $url, $m ) = RT::Test->started_ok;
35 ok( $m->login( 'user', 'password' ), 'logged in' );
36 $m->get_ok( $url . "/Ticket/ModifyPeople.html?id=" . $ticket->id );
41 url_regex => qr!/Admin/Users/Modify\.html!,
43 'no link to modify user'
45 $m->content_contains('Enoch Root', 'still has the user name' );
50 url_regex => qr!/Admin/Groups/Modify\.html!,
52 'no link to modify group'
55 $m->content_contains('group_foo', 'still has the group name' );
57 ok( RT::Test->add_rights( { Principal => $user, Right => ['AdminUsers'] }, ),
58 'added AdminUsers right' );
63 url_regex => qr!/Admin/Users/Modify\.html!,
65 'still no link to modify user'
70 url_regex => qr!/Admin/Groups/Modify\.html!,
72 'still no link to modify group'
76 RT::Test->add_rights( { Principal => $user, Right => ['ShowConfigTab'] }, ),
77 'added ShowConfigTab right',
83 text => 'root (Enoch Root)',
84 url_regex => qr!/Admin/Users/Modify\.html!,
86 'got link to modify user'
92 url_regex => qr!/Admin/Groups/Modify\.html!,
94 'still no link to modify group'
98 RT::Test->add_rights( { Principal => $user, Right => ['AdminGroup'] }, ),
99 'added AdminGroup right'
106 url_regex => qr!/Admin/Groups/Modify\.html!,
108 'got link to modify group'
113 WatcherTypeEmail1 => 'Cc',
114 WatcherAddressEmail1 => '"Foo Bar" <foo@example.com>',
116 button => 'SubmitTicket',
117 }, "Added email with phrase as watcher");
119 my $foo = RT::Test->load_or_create_user( EmailAddress => 'foo@example.com' );
120 is $foo->RealName, "Foo Bar", "RealName matches";
122 # TODO test Add|Delete people