6 use RT::Test tests => 16;
8 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
9 ok $queue && $queue->id, 'loaded or created queue';
11 my $user_a = RT::Test->load_or_create_user(
12 Name => 'user_a', Password => 'password',
14 ok $user_a && $user_a->id, 'loaded or created user';
16 my $user_b = RT::Test->load_or_create_user(
17 Name => 'user_b', Password => 'password',
19 ok $user_b && $user_b->id, 'loaded or created user';
21 ok( RT::Test->set_rights(
22 { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] },
23 { Principal => $user_b, Right => [qw(SeeQueue ShowTicket ReplyToTicket)] },
27 my $agent_a = RT::Test::Web->new;
28 ok $agent_a->login('user_a', 'password'), 'logged in as user A';
30 my $agent_b = RT::Test::Web->new;
31 ok $agent_b->login('user_b', 'password'), 'logged in as user B';
33 diag "create a ticket for testing" if $ENV{TEST_VERBOSE};
36 my $ticket = RT::Ticket->new( $user_a );
38 ($tid, $txn, $msg) = $ticket->Create(
43 ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
44 is $ticket->Owner, $user_a->id, 'correct owner';
47 diag "user B adds a message, we check that user A see notification and can clear it" if $ENV{TEST_VERBOSE};
49 my $ticket = RT::Ticket->new( $user_b );
50 $ticket->Load( $tid );
51 ok $ticket->id, 'loaded the ticket';
53 my ($status, $msg) = $ticket->Correspond( Content => 'bla-bla' );
54 ok $status, 'added reply' or diag "error: $msg";
56 $agent_a->goto_ticket($tid);
57 $agent_a->content_like(qr/bla-bla/ims, 'the message on the page');
59 $agent_a->content_like(
60 qr/unread message/ims,
61 'we have not seen something'
64 $agent_a->follow_link_ok({text => 'jump to the first unread message and mark all messages as seen'}, 'try to mark all as seen');
65 $agent_a->content_like(
66 qr/Marked all messages as seen/ims,
70 $agent_a->goto_ticket($tid);
71 $agent_a->content_unlike(
72 qr/unread message/ims,
73 'we have seen everything, so no messages'