[Rt-commit] r6467 - in rt/branches/3.6-RELEASE/lib/t: data

[ruz at bestpractical.com]

Author: ruz
Date: Mon Nov 20 21:29:46 2006
New Revision: 6467

Added:
   rt/branches/3.6-RELEASE/lib/t/data/very-long-subject
Modified:
   rt/branches/3.6-RELEASE/lib/t/regression/04send_email.t

Log:
* add a test for processing of emails with a long subject

Added: rt/branches/3.6-RELEASE/lib/t/data/very-long-subject
==============================================================================
--- (empty file)
+++ rt/branches/3.6-RELEASE/lib/t/data/very-long-subject	Mon Nov 20 21:29:46 2006
@@ -0,0 +1,12 @@
+Subject: 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
+Date: Mon, 02 Jun 2003 20:58:30 +0200
+To: rt at example.com
+From: foo at example.com
+Mime-Version: 1.0
+Content-Type: text/plain; charset="utf-8"
+Content-Transfer-Encoding: 8bit
+
+This email has a very long subject. Our DB allows you to use subject
+no longer than 200 chars, but we creat ticket, don't generate an
+error and trancate long line.
+

Modified: rt/branches/3.6-RELEASE/lib/t/regression/04send_email.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/04send_email.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/04send_email.t	Mon Nov 20 21:29:46 2006
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 139;
+use Test::More tests => 143;
 
 use RT;
 RT::LoadConfig();
@@ -531,6 +531,18 @@
     is ($ticket->Subject, 'test', 'correct subject');
 }
 
+diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
+{
+    my $content = file_content("$RT::BasePath/lib/t/data/very-long-subject");
+    my ($status, $msg, $ticket) = RT::Interface::Email::Gateway(
+        { message => $content, queue => 1, action => 'correspond' }
+    );
+    ok ($status, 'created ticket') or diag "error: $msg";
+    ok ($ticket->id, "found ticket ". $ticket->id);
+    is ($ticket->Subject, '0123456789'x20, 'correct subject');
+}
+
+
 
 # Don't taint the environment
 $everyone->PrincipalObj->RevokeRight(Right =>'SuperUser');