[Rt-commit] r6326 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sat Oct 28 22:40:54 2006
New Revision: 6326

Added:
   rtir/branches/2.1-EXPERIMENTAL/t/016-date-started.t
Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)

Log:
 r1789 at cubic-pc:  cubic | 2006-10-29 05:53:28 +0300
 * add tests that check behaviour around the Started field


Added: rtir/branches/2.1-EXPERIMENTAL/t/016-date-started.t
==============================================================================
--- (empty file)
+++ rtir/branches/2.1-EXPERIMENTAL/t/016-date-started.t	Sat Oct 28 22:40:54 2006
@@ -0,0 +1,111 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 70;
+
+require "t/rtir-test.pl";
+
+use_ok('RT');
+RT::LoadConfig();
+RT::Init();
+
+use_ok('RT::IR');
+
+
+my $agent = default_agent();
+my $rtir_user = RT::CurrentUser->new( rtir_user() );
+
+my %clicky = map { lc $_ => 1 } RT->Config->Get('Active_MakeClicky');
+
+diag "started date of an investigation" if $ENV{'TEST_VERBOSE'};
+{
+    my $id = create_investigation($agent, {Subject => "started date"});
+    display_ticket($agent, $id);
+    my $ticket = RT::Ticket->new( $RT::SystemUser );
+    $ticket->Load( $id );
+    is($ticket->id, $id, 'loaded ticket');
+    is($ticket->Started, $ticket->Created, 'for an investigation started date == created');
+}
+
+diag "started date of an IR" if $ENV{'TEST_VERBOSE'};
+{
+    my $ir_id = create_ir($agent, {Subject => "started date"});
+    display_ticket($agent, $ir_id);
+    sleep 5;
+
+    my $inc_id = create_incident_for_ir( $agent, $ir_id, {Subject => "started date"} );
+    my $inc = RT::Ticket->new( $RT::SystemUser );
+    $inc->Load( $inc_id );
+    is($inc->id, $inc_id, 'loaded inc');
+
+    my $ir = RT::Ticket->new( $RT::SystemUser );
+    $ir->Load( $ir_id );
+    is($ir->id, $ir_id, 'loaded ir');
+    ok( abs($ir->StartedObj->Unix - $inc->CreatedObj->Unix) <= 1, 'for an IR started date == linking to inc time');
+}
+
+diag "started date of an IR" if $ENV{'TEST_VERBOSE'};
+{
+    my $ir_id = create_ir($agent, {Subject => "started date"});
+    my $ir = RT::Ticket->new( $RT::SystemUser );
+    $ir->Load( $ir_id );
+    is($ir->id, $ir_id, 'loaded ir');
+    ok($ir->StartedObj->Unix <= 0, 'started is not set on a new IR');
+
+    display_ticket($agent, $ir_id);
+    $agent->follow_link_ok({text => 'Reply'}, "go to 'Reply'");
+    is($agent->status, 200, "request successful");
+
+    $agent->form_number(3);
+    $agent->field('UpdateContent', "reply shouldn't open or set started date");
+    $agent->click('SubmitTicket');
+    is($agent->status, 200, "request successful");
+    DBIx::SearchBuilder::Record::Cachable::FlushCache();
+
+    $ir = RT::Ticket->new( $RT::SystemUser );
+    $ir->Load( $ir_id );
+    is($ir->id, $ir_id, 'loaded ir');
+    ok($ir->StartedObj->Unix <= 0, 'started is not set on a new IR');
+}
+
+diag "started date of an IR" if $ENV{'TEST_VERBOSE'};
+{
+    my $inc_id = create_incident($agent, {Subject => "started date"});
+    sleep 5;
+
+    my $ir_id = create_ir($agent, {Subject => "started date", Incident => $inc_id});
+    display_ticket($agent, $ir_id);
+
+    my $inc = RT::Ticket->new( $RT::SystemUser );
+    $inc->Load( $inc_id );
+    is($inc->id, $inc_id, 'loaded inc');
+
+    my $ir = RT::Ticket->new( $RT::SystemUser );
+    $ir->Load( $ir_id );
+    is($ir->id, $ir_id, 'loaded ir');
+    ok( abs($ir->StartedObj->Unix - $ir->CreatedObj->Unix) <= 1, 'for an IR started date == linking to inc time');
+}
+
+diag "started date of a block" if $ENV{'TEST_VERBOSE'};
+{
+    my $inc_id = create_incident($agent, {Subject => "started date"});
+    my $block_id = create_block($agent, {Subject => "started date", Incident => $inc_id});
+
+    my $block = RT::Ticket->new( $RT::SystemUser );
+    $block->Load( $block_id );
+    is($block->id, $block_id, 'loaded block');
+    ok( $block->StartedObj->Unix <= 0, 'a new block is not active');
+
+    display_ticket($agent, $block_id);
+    $agent->follow_link_ok({text => 'Activate'}, "activate it");
+    is($agent->status, 200, "request successful");
+    DBIx::SearchBuilder::Record::Cachable::FlushCache();
+
+    $block = RT::Ticket->new( $RT::SystemUser );
+    $block->Load( $block_id );
+    is($block->id, $block_id, 'loaded block');
+    ok( $block->StartedObj->Unix > 0, 'activation of a block sets started date');
+}
+