use strict;
use warnings;
-use RT::Test tests => 21;
+use RT::Test nodata => 1, tests => 23, config => 'Set($ShowUnreadMessageNotifications, 1);';
my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
ok $queue && $queue->id, 'loaded or created queue';
my $agent_b = RT::Test::Web->new;
ok $agent_b->login('user_b', 'password'), 'logged in as user B';
-diag "create a ticket for testing" if $ENV{TEST_VERBOSE};
+diag "create a ticket for testing";
my $tid;
{
my $ticket = RT::Ticket->new( $user_a );
is $ticket->Owner, $user_a->id, 'correct owner';
}
-diag "user B adds a message, we check that user A see notification and can clear it" if $ENV{TEST_VERBOSE};
+diag "user B adds a message, we check that user A see notification and can clear it";
{
my $ticket = RT::Ticket->new( $user_b );
$ticket->Load( $tid );
ok( $reply_id, 'got correspond txn id' );
$agent_a->goto_ticket($tid);
- $agent_a->content_like(qr/bla-bla/ims, 'the message on the page');
+ $agent_a->content_contains('bla-bla', 'the message on the page');
- $agent_a->content_like(
- qr/unread message/ims,
+ $agent_a->content_contains(
+ 'unread message',
'we have not seen something'
);
like( $agent_a->base, qr/#txn-$reply_id$/, 'contains anchor' );
$agent_a->follow_link_ok({text => 'jump to the first unread message and mark all messages as seen'}, 'try to mark all as seen');
- $agent_a->content_like(
- qr/Marked all messages as seen/ims,
+ $agent_a->content_contains(
+ 'Marked all messages as seen',
'see success message'
);
like( $agent_a->base, qr/#txn-$reply_id$/, 'contains anchor' );
- $agent_a->content_like(
- qr/Marked all messages as seen/ims,
+ $agent_a->content_contains(
+ 'Marked all messages as seen',
'see success message'
);
$agent_a->goto_ticket($tid);
- $agent_a->content_unlike(
- qr/unread message/ims,
+ $agent_a->content_lacks(
+ 'unread message',
'we have seen everything, so no messages'
);
}