rt/t/web/ticket_seen.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test nodata => 1, tests => 23, config => 'Set($ShowUnreadMessageNotifications, 1);';
   6
   7 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
   8 ok $queue && $queue->id, 'loaded or created queue';
   9
  10 my $user_a = RT::Test->load_or_create_user(
  11     Name => 'user_a', Password => 'password',
  12 );
  13 ok $user_a && $user_a->id, 'loaded or created user';
  14
  15 my $user_b = RT::Test->load_or_create_user(
  16     Name => 'user_b', Password => 'password',
  17 );
  18 ok $user_b && $user_b->id, 'loaded or created user';
  19
  20 ok( RT::Test->set_rights(
  21     { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] },
  22     { Principal => $user_b, Right => [qw(SeeQueue ShowTicket ReplyToTicket)] },
  23 ), 'set rights');
  24 RT::Test->started_ok;
  25
  26 my $agent_a = RT::Test::Web->new;
  27 ok $agent_a->login('user_a', 'password'), 'logged in as user A';
  28
  29 my $agent_b = RT::Test::Web->new;
  30 ok $agent_b->login('user_b', 'password'), 'logged in as user B';
  31
  32 diag "create a ticket for testing";
  33 my $tid;
  34 {
  35     my $ticket = RT::Ticket->new( $user_a );
  36     my ($txn, $msg);
  37     ($tid, $txn, $msg) = $ticket->Create(
  38         Queue => $queue->id,
  39         Owner => $user_a->id,
  40         Subject => 'test',
  41     );
  42     ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
  43     is $ticket->Owner, $user_a->id, 'correct owner';
  44 }
  45
  46 diag "user B adds a message, we check that user A see notification and can clear it";
  47 {
  48     my $ticket = RT::Ticket->new( $user_b );
  49     $ticket->Load( $tid );
  50     ok $ticket->id, 'loaded the ticket';
  51
  52     my ($status, $msg) = $ticket->Correspond( Content => 'bla-bla' );
  53     ok $status, 'added reply' or diag "error: $msg";
  54     my $txns = $ticket->Transactions;
  55     $txns->Limit(
  56         FIELD           => 'Type',
  57         VALUE           => "Correspond",
  58     );
  59     my $txn = $txns->Last;
  60     my $reply_id = $txn->id;
  61     ok( $reply_id, 'got correspond txn id' );
  62
  63     $agent_a->goto_ticket($tid);
  64     $agent_a->content_contains('bla-bla', 'the message on the page');
  65
  66     $agent_a->content_contains(
  67         'unread message',
  68         'we have not seen something'
  69     );
  70
  71     $agent_a->follow_link_ok(
  72         { text => 'jump to the first unread message' },
  73         'try to jump to first unread message'
  74     );
  75     like( $agent_a->base, qr/#txn-$reply_id$/, 'contains anchor' );
  76
  77     $agent_a->follow_link_ok({text => 'jump to the first unread message and mark all messages as seen'}, 'try to mark all as seen');
  78     $agent_a->content_contains(
  79         'Marked all messages as seen',
  80         'see success message'
  81     );
  82     like( $agent_a->base, qr/#txn-$reply_id$/, 'contains anchor' );
  83
  84     $agent_a->content_contains(
  85         'Marked all messages as seen',
  86         'see success message'
  87     );
  88
  89     $agent_a->goto_ticket($tid);
  90     $agent_a->content_lacks(
  91         'unread message',
  92         'we have seen everything, so no messages'
  93     );
  94 }
  95