[Rt-commit] r5805 - in RT-Extension-CommandByEmail: . t

[kevinr at bestpractical.com]

Author: kevinr
Date: Wed Aug 23 18:44:31 2006
New Revision: 5805

Modified:
   RT-Extension-CommandByEmail/   (props changed)
   RT-Extension-CommandByEmail/lib/RT/Interface/Email/Filter/TakeAction.pm
   RT-Extension-CommandByEmail/t/02.create.t

Log:
 r27526 at sad-girl-in-snow:  kevinr | 2006-08-23 15:33:27 -0400
 * Only parse the first paragraph of pseudo-headers, plus tests.


Modified: RT-Extension-CommandByEmail/lib/RT/Interface/Email/Filter/TakeAction.pm
==============================================================================
--- RT-Extension-CommandByEmail/lib/RT/Interface/Email/Filter/TakeAction.pm	(original)
+++ RT-Extension-CommandByEmail/lib/RT/Interface/Email/Filter/TakeAction.pm	Wed Aug 23 18:44:31 2006
@@ -176,9 +176,11 @@
     }
 
     my @items;
+    my $found_pseudoheaders = 0;
     foreach my $line (@content) {
-        next if $line =~ /^\s*$/;
+        next if $line =~ /^\s*$/ && ! $found_pseudoheaders;
         last if $line !~ /^(?:(\S+)\s*?:\s*?(.*)\s*?|)$/;
+        $found_pseudoheaders = 1;
         push( @items, $1 => $2 );
     }
     my %cmds;

Modified: RT-Extension-CommandByEmail/t/02.create.t
==============================================================================
--- RT-Extension-CommandByEmail/t/02.create.t	(original)
+++ RT-Extension-CommandByEmail/t/02.create.t	Wed Aug 23 18:44:31 2006
@@ -77,6 +77,7 @@
 
 
 Priority: $priority
+
 FinalPriority: $final_priority
 
 test
@@ -86,7 +87,8 @@
     my $obj = RT::Ticket->new( $RT::SystemUser );
     $obj->Load( $id );
     is($obj->id, $id, "loaded ticket");
-    is($obj->Priority, $priority, 'set a header after multiple leading newlines' );
+    is($obj->Priority, $priority, 'found priority after multiple leading newlines' );
+    isnt($obj->FinalPriority, $final_priority, 'did not set final priority' );
 }
 
 # XXX: these test are fail as