[Rt-commit] r5797 - in RT-Extension-CommandByEmail: .

[kevinr at bestpractical.com]

Author: kevinr
Date: Tue Aug 22 16:20:57 2006
New Revision: 5797

Modified:
   RT-Extension-CommandByEmail/   (props changed)
   RT-Extension-CommandByEmail/t/03.update.t

Log:
 r25637 at sad-girl-in-snow:  kevinr | 2006-08-22 15:29:02 -0400
 * Failing tests for the TimeWorked bug


Modified: RT-Extension-CommandByEmail/t/03.update.t
==============================================================================
--- RT-Extension-CommandByEmail/t/03.update.t	(original)
+++ RT-Extension-CommandByEmail/t/03.update.t	Tue Aug 22 16:20:57 2006
@@ -133,6 +133,32 @@
 }
 
 
+diag("handle multiple time worked statements") if $ENV{'TEST_VERBOSE'};
+{
+    my $obj = RT::Ticket->new( $RT::SystemUser );
+    $obj->Load( $test_ticket_id );
+    is($obj->id, $test_ticket_id, "loaded ticket");
+    my $current = $obj->TimeWorked;
+    ok($current, "time worked is greater than zero");
+
+    my $text = <<END;
+Subject: [$RT::rtname #$test_ticket_id] test
+From: root\@localhost
+
+TimeWorked: 5
+TimeWorked: 5
+
+test
+END
+    my $id = create_ticket_via_gate( $text );
+    is($id, $test_ticket_id, "updated ticket");
+    $obj = RT::Ticket->new( $RT::SystemUser );
+    $obj->Load( $id );
+    is($obj->id, $id, "loaded ticket");
+    is($obj->TimeWorked, $current + 10, 'set time' );
+}
+
+
 diag("set watchers on update") if $ENV{'TEST_VERBOSE'};
 foreach my $field ( qw(Requestor Cc AdminCc) ) {
     my $value = 'test at localhost';
@@ -153,6 +179,7 @@
     is($obj->$method(), $value, 'set '. $field );
 }
 
+
 diag("add requestor on update") if $ENV{'TEST_VERBOSE'};
 {
     my $value = 'test at localhost';