[Rt-commit] r6074 - in RT-Extension-TicketAging: .

[schwern at bestpractical.com]

Author: schwern
Date: Wed Sep 27 23:52:12 2006
New Revision: 6074

Modified:
   RT-Extension-TicketAging/   (props changed)
   RT-Extension-TicketAging/t/03.dead-age.t

Log:
 r19391 at Master-Windhund-IV:  schwern | 2006-09-27 20:49:25 -0700
 $ticket is ambiguous.  Changing to $parent and $child.


Modified: RT-Extension-TicketAging/t/03.dead-age.t
==============================================================================
--- RT-Extension-TicketAging/t/03.dead-age.t	(original)
+++ RT-Extension-TicketAging/t/03.dead-age.t	Wed Sep 27 23:52:12 2006
@@ -31,63 +31,63 @@
 
 diag("dead age: parent is finished while child is not") if $ENV{'TEST_VERBOSE'};
 {
-    my $ticket = RT::Ticket->new( $RT::SystemUser );
-    my ($pid) = $ticket->Create( Queue => 'General', Status => 'resolved' );
+    my $parent = RT::Ticket->new( $RT::SystemUser );
+    my ($pid) = $parent->Create( Queue => 'General', Status => 'resolved' );
     ok($pid, "created parent ticket");
 
-    my $date = $ticket->LastUpdatedObj;
+    my $date = $parent->LastUpdatedObj;
     $date->AddDays( -70 );
-    $ticket->__Set( Field => 'LastUpdated', Value => $date->ISO );
-    is($ticket->LastUpdated, $date->ISO, 'set date' );
+    $parent->__Set( Field => 'LastUpdated', Value => $date->ISO );
+    is($parent->LastUpdated, $date->ISO, 'set date' );
 
-    $ticket = RT::Ticket->new( $RT::SystemUser );
-    my ($cid) = $ticket->Create( Queue => 'General', MemberOf => $pid );
+    my $child = RT::Ticket->new( $RT::SystemUser );
+    my ($cid) = $child->Create( Queue => 'General', MemberOf => $pid );
     ok($cid, "created child ticket");
-    $ticket->__Set( Field => 'LastUpdated', Value => $date->ISO );
-    is($ticket->LastUpdated, $date->ISO, 'set date' );
+    $child->__Set( Field => 'LastUpdated', Value => $date->ISO );
+    is($child->LastUpdated, $date->ISO, 'set date' );
 
     my ($res, $err) = run_exec( debug => 1 );
     my $ferr = filter_log( $err );
     ok(!$ferr, 'no error') or diag($err);
 
-    $ticket->Load( $pid );
-    is($ticket->id, $pid, 'loaded ticket');
-    is($ticket->FirstCustomFieldValue('Age'), 'Active', 'correct age');
-
-    $ticket->Load( $cid );
-    is($ticket->id, $cid, 'loaded ticket');
-    is($ticket->FirstCustomFieldValue('Age'), 'Active', 'correct age');
-    is($ticket->LastUpdated, $date->ISO, 'set date' );
+    $parent->Load( $pid );
+    is($parent->id, $pid, 'loaded ticket');
+    is($parent->FirstCustomFieldValue('Age'), 'Active', 'correct age');
+
+    $child->Load( $cid );
+    is($child->id, $cid, 'loaded ticket');
+    is($child->FirstCustomFieldValue('Age'), 'Active', 'correct age');
+    is($child->LastUpdated, $date->ISO, 'set date' );
 }
 
 diag("dead age: child is finished, but parent is not") if $ENV{'TEST_VERBOSE'};
 {
-    my $ticket = RT::Ticket->new( $RT::SystemUser );
-    my ($pid) = $ticket->Create( Queue => 'General' );
+    my $parent = RT::Ticket->new( $RT::SystemUser );
+    my ($pid) = $parent->Create( Queue => 'General' );
     ok($pid, "created parent ticket");
 
-    my $date = $ticket->LastUpdatedObj;
+    my $date = $parent->LastUpdatedObj;
     $date->AddDays( -70 );
-    $ticket->__Set( Field => 'LastUpdated', Value => $date->ISO );
-    is($ticket->LastUpdated, $date->ISO, 'set date' );
+    $parent->__Set( Field => 'LastUpdated', Value => $date->ISO );
+    is($parent->LastUpdated, $date->ISO, 'set date' );
 
-    $ticket = RT::Ticket->new( $RT::SystemUser );
-    my ($cid) = $ticket->Create( Queue => 'General', MemberOf => $pid, Status => 'resolved' );
+    my $child = RT::Ticket->new( $RT::SystemUser );
+    my ($cid) = $child->Create( Queue => 'General', MemberOf => $pid, Status => 'resolved' );
     ok($cid, "created child ticket");
-    $ticket->__Set( Field => 'LastUpdated', Value => $date->ISO );
-    is($ticket->LastUpdated, $date->ISO, 'set date' );
+    $child->__Set( Field => 'LastUpdated', Value => $date->ISO );
+    is($child->LastUpdated, $date->ISO, 'set date' );
 
     my ($res, $err) = run_exec( debug => 1 );
     my $ferr = filter_log( $err );
     ok(!$ferr, 'no error') or diag($err);
 
-    $ticket->Load( $pid );
-    is($ticket->id, $pid, 'loaded ticket');
-    is($ticket->FirstCustomFieldValue('Age'), 'Active', 'correct age');
-    is($ticket->LastUpdated, $date->ISO, 'correct date' );
-
-    $ticket->Load( $cid );
-    is($ticket->id, $cid, 'loaded ticket');
-    is($ticket->FirstCustomFieldValue('Age'), 'Dead', 'correct age');
-    is($ticket->LastUpdated, $date->ISO, 'correct date' );
+    $parent->Load( $pid );
+    is($parent->id, $pid, 'loaded ticket');
+    is($parent->FirstCustomFieldValue('Age'), 'Active', 'correct age');
+    is($parent->LastUpdated, $date->ISO, 'correct date' );
+
+    $child->Load( $cid );
+    is($child->id, $cid, 'loaded child');
+    is($child->FirstCustomFieldValue('Age'), 'Dead', 'correct age');
+    is($child->LastUpdated, $date->ISO, 'correct date' );
 }