1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
use strict;
use warnings;
use RT::Test
tests => undef,
config => 'Set( $ShowUnreadMessageNotifications, 1 );'
;
my ($url, $m) = RT::Test->started_ok;
my $user_a = RT::Test->load_or_create_user(
Name => 'user_a',
Password => 'password',
EmailAddress => 'user_a@example.com',
Privileged => 0,
);
ok( $user_a && $user_a->id, 'loaded or created user' );
ok( ! $user_a->Privileged, 'user is not privileged' );
# Load Cc group
my $Cc = RT::System->RoleGroup( 'Cc' );
ok($Cc->id);
RT::Test->add_rights( { Principal => $Cc, Right => ['ShowTicket'] } );
my ($ticket) = RT::Test->create_ticket(
Queue => 'General',
Subject => 'test subject',
Cc => 'user_a@example.com',
);
my @results = $ticket->Correspond( Content => 'sample correspondence' );
ok( $m->login('user_a' => 'password'), 'unprivileged user logged in' );
$m->get_ok( '/SelfService/Display.html?id=' . $ticket->id,
'got selfservice display page' );
my $title = '#' . $ticket->id . ': test subject';
$m->title_is( $title );
$m->content_contains( "<h1>$title</h1>", "contains <h1>$title</h1>" );
# $ShowUnreadMessageNotifications tests:
$m->content_contains( "There are unread messages on this ticket." );
# mark the message as read
$m->follow_link_ok(
{ text => 'Mark as Seen' },
'followed mark as seen link'
);
$m->content_contains( "<h1>$title</h1>", "contains <h1>$title</h1>" );
$m->content_lacks( "There are unread messages on this ticket." );
$m->follow_link_ok( { url_regex => qr{^/SelfService/Transaction/Display.html}, n => 2 }, 'Followed transaction link' );
$m->text_contains('sample correspondence');
ok( !$m->find_link( url_regex => qr{^/Ticket/} ), 'No privileged ticket links found' );
ok( !$m->find_link( url_regex => qr{^Update.html} ), 'No self service update links found' );
$m->follow_link_ok( { url_regex => qr{^/SelfService/Attachment/}, }, 'Followed self service attachment link' );
$m->text_contains('sample correspondence');
$m->back;
RT::Test->add_rights( { Principal => $Cc, Right => ['ReplyToTicket'] } );
$m->reload;
$m->follow_link_ok( { url_regex => qr{^/SelfService/Update.html}, }, 'Followed self service ticket link' );
$m->submit_form_ok(
{
form_name => 'TicketUpdate',
with_fields => { UpdateContent => 'Test correspondence from self service' },
button => 'SubmitTicket',
},
'Submitted self service update form'
);
$m->text_contains('Correspondence added');
$m->text_contains('Test correspondence from self service');
diag 'Test $SelfServiceUserPrefs config';
{
# Verify the $SelfServiceUserPrefs config option renders the correct display at
# /SelfService/Prefs.html for each of the available options
is( RT->Config->Get( 'SelfServiceUserPrefs' ), 'edit-prefs', '$SelfServiceUserPrefs is set to "edit-prefs" by default' );
for my $config ( 'edit-prefs', 'view-info', 'edit-prefs-view-info', 'full-edit' ) {
RT::Test->stop_server;
RT->Config->Set( SelfServiceUserPrefs => $config );
( $url, $m ) = RT::Test->started_ok;
ok( $m->login('user_a' => 'password'), 'unprivileged user logged in' );
$m->get_ok( '/SelfService/Prefs.html');
if ( $config eq 'edit-prefs' ) {
$m->content_lacks( 'Nickname', "'Edit-Prefs' option does not contain full user info" );
$m->content_contains( '<input type="password" class="form-control" name="CurrentPass"', "'Edit-Prefs' option contains default user info" );
} elsif ( $config eq 'view-info' ) {
$m->content_lacks( 'name="NickName" value=""', "'View-Info' option contains no input fields for full user info" );
$m->content_contains( "Nickname:", "'View-Info' option contains full user info" );
} elsif ( $config eq 'edit-prefs-view-info' ) {
$m->content_contains( '<input type="password" class="form-control" name="CurrentPass"', "'Edit-Prefs-View-Info' option contains default user info" );
$m->content_contains( 'Nickname:', "'Edit-Prefs-View-Info' option contains full user info" );
$m->content_lacks( 'name="NickName" value=""', "'Edit-Prefs-View-Info' option contains no input fields for full user info" );
} else {
RT::Test->add_rights( { Principal => $user_a, Right => ['ModifySelf'] } );
my $nickname = 'user_a_nickname';
$m->submit_form_ok({
form_name => 'EditAboutMe',
with_fields => { NickName => $nickname,}
}, 'Form submitted');
$m->text_contains("NickName changed from (no value) to '$nickname'", "NickName updated");
}
}
}
# TODO need more SelfService tests
done_testing();
|
