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
|
use strict;
use warnings;
use RT::Test
tests => 17,
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::Group->new( RT->SystemUser );
my($ok, $msg) = $Cc->LoadSystemRoleGroup( 'Cc' );
ok($ok, $msg);
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 => 'jump to the first unread message and mark all messages 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." );
# TODO need more SelfService tests
|