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

[kevinr at bestpractical.com]

Author: kevinr
Date: Mon Aug 21 23:12:34 2006
New Revision: 5787

Modified:
   RT-Extension-CommandByEmail/   (props changed)
   RT-Extension-CommandByEmail/t/02.create.t

Log:
 r25582 at SAD-GIRL-IN-SNOW:  kevinr | 2006-08-21 19:29:34 -0400
 * Tests to see if we recognice pseudo-headers after multiple leading newlines


Modified: RT-Extension-CommandByEmail/t/02.create.t
==============================================================================
--- RT-Extension-CommandByEmail/t/02.create.t	(original)
+++ RT-Extension-CommandByEmail/t/02.create.t	Mon Aug 21 23:12:34 2006
@@ -65,6 +65,30 @@
     is($obj->FinalPriority, $final_priority, 'set final priority' );
 } }
 
+diag("ignore multiple leading newlines") if $ENV{'TEST_VERBOSE'};
+{
+my $priority = 10; 
+my $final_priority = 15;
+    my $text = <<END;
+Subject: test
+From: root\@localhost
+
+
+
+
+Priority: $priority
+FinalPriority: $final_priority
+
+test
+END
+    my $id = create_ticket_via_gate( $text );
+    ok($id, "created ticket");
+    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' );
+}
+
 # XXX: these test are fail as 
 diag("set date on create") if $ENV{'TEST_VERBOSE'};
 foreach my $field ( qw(Due Starts Started) ) {