[Rt-commit] r8798 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 28 14:45:02 2007
New Revision: 8798

Added:
   rt/branches/3.7-EXPERIMENTAL/t/web/ticket_seen.t
Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)

Log:
 r8731 at cubic-pc (orig r8730):  ruz | 2007-08-25 00:19:04 +0400
 * add simple tests for "you havn't seen something" box


Added: rt/branches/3.7-EXPERIMENTAL/t/web/ticket_seen.t
==============================================================================
--- (empty file)
+++ rt/branches/3.7-EXPERIMENTAL/t/web/ticket_seen.t	Tue Aug 28 14:45:02 2007
@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 16;
+use RT::Test;
+
+my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
+ok $queue && $queue->id, 'loaded or created queue';
+
+my $user_a = RT::Test->load_or_create_user(
+    Name => 'user_a', Password => 'password',
+);
+ok $user_a && $user_a->id, 'loaded or created user';
+
+my $user_b = RT::Test->load_or_create_user(
+    Name => 'user_b', Password => 'password',
+);
+ok $user_b && $user_b->id, 'loaded or created user';
+
+ok( RT::Test->set_rights(
+    { Principal => $user_a, Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] },
+    { Principal => $user_b, Right => [qw(SeeQueue ShowTicket ReplyToTicket)] },
+), 'set rights');
+RT::Test->started_ok;
+
+my $agent_a = RT::Test::Web->new;
+ok $agent_a->login('user_a', 'password'), 'logged in as user A';
+
+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";
+my $tid;
+{
+    my $ticket = RT::Ticket->new( $user_a );
+    my ($txn, $msg);
+    ($tid, $txn, $msg) = $ticket->Create(
+        Queue => $queue->id,
+        Owner => $user_a->id,
+        Subject => 'test',
+    );
+    ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
+    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";
+{
+    my $ticket = RT::Ticket->new( $user_b );
+    $ticket->Load( $tid );
+    ok $ticket->id, 'loaded the ticket';
+
+    my ($status, $msg) = $ticket->Correspond( Content => 'bla-bla' );
+    ok $status, 'added reply' or diag "error: $msg";
+
+    $agent_a->goto_ticket($tid);
+    $agent_a->content_like(qr/bla-bla/ims, 'the message on the page');
+
+    $agent_a->content_like(
+        qr/There is new messages you havn't seen/ims,
+        'we have not seen something'
+    );
+
+    $agent_a->follow_link_ok({text => 'mark'}, 'try to mark all as seen');
+    $agent_a->content_like(
+        qr/Marked all messages as seen/ims,
+        'see success message'
+    );
+
+    $agent_a->goto_ticket($tid);
+    $agent_a->content_unlike(
+        qr/There is new messages you havn't seen/ims,
+        'we have seen everything, so no messages'
+    );
+}
+
+
+
+
+