rt/t/web/ticket_seen.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use RT::Test tests => 16;
   7
   8 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
   9 ok $queue && $queue->id, 'loaded or created queue';
  10
  11 my $user_a = RT::Test->load_or_create_user(
  12     Name => 'user_a', Password => 'password',
  13 );
  14 ok $user_a && $user_a->id, 'loaded or created user';
  15
  16 my $user_b = RT::Test->load_or_create_user(
  17     Name => 'user_b', Password => 'password',
  18 );
  19 ok $user_b && $user_b->id, 'loaded or created user';
  20
  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)] },
  24 ), 'set rights');
  25 RT::Test->started_ok;
  26
  27 my $agent_a = RT::Test::Web->new;
  28 ok $agent_a->login('user_a', 'password'), 'logged in as user A';
  29
  30 my $agent_b = RT::Test::Web->new;
  31 ok $agent_b->login('user_b', 'password'), 'logged in as user B';
  32
  33 diag "create a ticket for testing" if $ENV{TEST_VERBOSE};
  34 my $tid;
  35 {
  36     my $ticket = RT::Ticket->new( $user_a );
  37     my ($txn, $msg);
  38     ($tid, $txn, $msg) = $ticket->Create(
  39         Queue => $queue->id,
  40         Owner => $user_a->id,
  41         Subject => 'test',
  42     );
  43     ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
  44     is $ticket->Owner, $user_a->id, 'correct owner';
  45 }
  46
  47 diag "user B adds a message, we check that user A see notification and can clear it" if $ENV{TEST_VERBOSE};
  48 {
  49     my $ticket = RT::Ticket->new( $user_b );
  50     $ticket->Load( $tid );
  51     ok $ticket->id, 'loaded the ticket';
  52
  53     my ($status, $msg) = $ticket->Correspond( Content => 'bla-bla' );
  54     ok $status, 'added reply' or diag "error: $msg";
  55
  56     $agent_a->goto_ticket($tid);
  57     $agent_a->content_like(qr/bla-bla/ims, 'the message on the page');
  58
  59     $agent_a->content_like(
  60         qr/unread message/ims,
  61         'we have not seen something'
  62     );
  63
  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,
  67         'see success message'
  68     );
  69
  70     $agent_a->goto_ticket($tid);
  71     $agent_a->content_unlike(
  72         qr/unread message/ims,
  73         'we have seen everything, so no messages'
  74     );
  75 }
  76
  77
  78
  79
  80