[Rt-commit] r8944 - in rt/branches/3.7-EXPERIMENTAL: .

[sartak at bestpractical.com]

Author: sartak
Date: Wed Sep  5 17:21:02 2007
New Revision: 8944

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/t/mail/sendmail.t

Log:
 r40610 at onn:  sartak | 2007-09-05 17:20:51 -0400
 Make sendmail use the correct slurp sub


Modified: rt/branches/3.7-EXPERIMENTAL/t/mail/sendmail.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/t/mail/sendmail.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/t/mail/sendmail.t	Wed Sep  5 17:21:02 2007
@@ -100,7 +100,7 @@
 # create an iso 8859-1 ticket
 @scrips_fired = ();
 
-$content =  file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
+$content =  RT::Test->file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
 
 
 
@@ -148,7 +148,7 @@
 # create an iso 8859-1 ticket
 @scrips_fired = ();
 
- $content =  file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
 # be as much like the mail gateway as possible.
 use RT::Interface::Email;
                                   
@@ -242,7 +242,7 @@
 
 # {{{ test a multipart alternative containing a text-html part with an umlaut
 
- $content =  file_content("$RT::BasePath/lib/t/data/multipart-alternative-with-umlaut");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/multipart-alternative-with-umlaut");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -271,7 +271,7 @@
 
 # {{{ test a text-html message with an umlaut
 
- $content =  file_content("$RT::BasePath/lib/t/data/text-html-with-umlaut");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/text-html-with-umlaut");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -308,7 +308,7 @@
 
 # {{{ test a text-html message with russian characters
 
- $content =  file_content("$RT::BasePath/lib/t/data/text-html-in-russian");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/text-html-in-russian");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -351,7 +351,7 @@
 
 RT->Config->Set( EmailInputEncodings => 'koi8-r', RT->Config->Get('EmailInputEncodings') );
 RT->Config->Set( EmailOutputEncoding => 'koi8-r' );
-$content =  file_content("$RT::BasePath/lib/t/data/russian-subject-no-content-type");
+$content =  RT::Test->file_content("$RT::BasePath/lib/t/data/russian-subject-no-content-type");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -392,7 +392,7 @@
 
 # {{{ test a message containing a nested RFC 822 message
 
- $content =  file_content("$RT::BasePath/lib/t/data/nested-rfc-822");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/nested-rfc-822");
 ok ($content, "Loaded nested-rfc-822 to test");
 
 $parser->ParseMIMEEntityFromScalar($content);
@@ -431,7 +431,7 @@
 
 # {{{ test a multipart alternative containing a uuencoded mesage generated by lotus notes
 
- $content =  file_content("$RT::BasePath/lib/t/data/notes-uuencoded");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/notes-uuencoded");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -456,7 +456,7 @@
 
 # {{{ test a multipart that crashes the file-based mime-parser works
 
- $content =  file_content("$RT::BasePath/lib/t/data/crashes-file-based-parser");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/crashes-file-based-parser");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -483,7 +483,7 @@
 
 # {{{ test a multi-line RT-Send-CC header
 
- $content =  file_content("$RT::BasePath/lib/t/data/rt-send-cc");
+ $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/rt-send-cc");
 
 $parser->ParseMIMEEntityFromScalar($content);
 
@@ -508,7 +508,7 @@
 
 diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
 {
-    my $content = file_content("$RT::BasePath/lib/t/data/subject-with-folding-ws");
+    my $content = RT::Test->file_content("$RT::BasePath/lib/t/data/subject-with-folding-ws");
     my ($status, $msg, $ticket) = RT::Interface::Email::Gateway(
         { message => $content, queue => 1, action => 'correspond' }
     );
@@ -519,7 +519,7 @@
 
 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 $content = RT::Test->file_content("$RT::BasePath/lib/t/data/very-long-subject");
     my ($status, $msg, $ticket) = RT::Interface::Email::Gateway(
         { message => $content, queue => 1, action => 'correspond' }
     );