[Rt-commit] r10597 - in rt/branches/3.999-DANGEROUS: lib t/api t/mail t/web

jesse at bestpractical.com jesse at bestpractical.com
Wed Jan 30 17:05:58 EST 2008 

Author: jesse
Date: Wed Jan 30 17:05:58 2008
New Revision: 10597

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/lib/RT.pm
   rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t
   rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
   rt/branches/3.999-DANGEROUS/t/web/command_line.t

Log:
 r75965 at pinglin:  jesse | 2008-01-30 17:05:13 -0500
 * Fixed BASE_PATH to a canonical global-case


Modified: rt/branches/3.999-DANGEROUS/lib/RT.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT.pm	Wed Jan 30 17:05:58 2008
@@ -12,7 +12,7 @@
 use vars qw($Config $System $nobody $Handle );
 our $VERSION = '3.7.14';
 
-our $basePath         = '/home/jesse/svk/3.999-DANGEROUS';
+our $BASE_PATH         = '/home/jesse/svk/3.999-DANGEROUS';
 our $EtcPath          = '/home/jesse/svk/3.999-DANGEROUS/etc';
 our $BinPath          = '/home/jesse/svk/3.999-DANGEROUS/bin';
 our $VarPath          = '/home/jesse/svk/3.999-DANGEROUS/var';

Modified: rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t	Wed Jan 30 17:05:58 2008
@@ -40,6 +40,8 @@
 ok($tv, $tm);
 ok($ticket->set_owner('root'));
 is ($ticket->priority , '21', "Ticket priority is set right");
+
+
 ok($ticket->steal);
 is ($ticket->priority , '22', "Ticket priority is set right");
 ok($ticket->untake);

Modified: rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/sendmail.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/mail/sendmail.t	Wed Jan 30 17:05:58 2008
@@ -45,7 +45,7 @@
 
 
 # Let's test to make sure a multipart/report is processed correctly
-my $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/multipart-report");
+my $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/multipart-report");
 # be as much like the mail gateway as possible.
 use RT::Interface::Email;
 my %args =        (message => $content, queue => 1, action => 'correspond');
@@ -101,7 +101,7 @@
 # create an iso 8859-1 ticket
 @scrips_fired = ();
 
-$content =  RT::Test->file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
+$content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/new-ticket-from-iso-8859-1");
 
 
 
@@ -149,7 +149,7 @@
 # create an iso 8859-1 ticket
 @scrips_fired = ();
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/new-ticket-from-iso-8859-1");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/new-ticket-from-iso-8859-1");
 # be as much like the mail gateway as possible.
 use RT::Interface::Email;
                                   
@@ -243,7 +243,7 @@
 
 # {{{ test a multipart alternative containing a text-html part with an umlaut
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/multipart-alternative-with-umlaut");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/multipart-alternative-with-umlaut");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -272,7 +272,7 @@
 
 # {{{ test a text-html message with an umlaut
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/text-html-with-umlaut");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/text-html-with-umlaut");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -309,7 +309,7 @@
 
 # {{{ test a text-html message with russian characters
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/text-html-in-russian");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/text-html-in-russian");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -352,7 +352,7 @@
 
 RT->config->set( EmailInputEncodings => 'koi8-r', RT->config->get('EmailInputEncodings') );
 RT->config->set( EmailOutputEncoding => 'koi8-r' );
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/russian-subject-no-content-type");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/russian-subject-no-content-type");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -393,7 +393,7 @@
 
 # {{{ test a message containing a nested RFC 822 message
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/nested-rfc-822");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/nested-rfc-822");
 ok ($content, "Loaded nested-rfc-822 to test");
 
 $parser->parse_mime_entity_from_scalar($content);
@@ -432,7 +432,7 @@
 
 # {{{ test a multipart alternative containing a uuencoded mesage generated by lotus notes
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/notes-uuencoded");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/notes-uuencoded");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -457,7 +457,7 @@
 
 # {{{ test a multipart that crashes the file-based mime-parser works
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/crashes-file-based-parser");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/crashes-file-based-parser");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -484,7 +484,7 @@
 
 # {{{ test a multi-line RT-Send-CC header
 
- $content =  RT::Test->file_content("$RT::BasePath/lib/t/data/rt-send-cc");
+ $content =  RT::Test->file_content("$RT::BASE_PATH/lib/t/data/rt-send-cc");
 
 $parser->parse_mime_entity_from_scalar($content);
 
@@ -509,7 +509,7 @@
 
 diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
 {
-    my $content = RT::Test->file_content("$RT::BasePath/lib/t/data/subject-with-folding-ws");
+    my $content = RT::Test->file_content("$RT::BASE_PATH/lib/t/data/subject-with-folding-ws");
     my ($status, $msg, $ticket) = RT::Interface::Email::gateway(
         { message => $content, queue => 1, action => 'correspond' }
     );
@@ -520,7 +520,7 @@
 
 diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
 {
-    my $content = RT::Test->file_content("$RT::BasePath/lib/t/data/very-long-subject");
+    my $content = RT::Test->file_content("$RT::BASE_PATH/lib/t/data/very-long-subject");
     my ($status, $msg, $ticket) = RT::Interface::Email::gateway(
         { message => $content, queue => 1, action => 'correspond' }
     );

Modified: rt/branches/3.999-DANGEROUS/t/web/command_line.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/command_line.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/command_line.t	Wed Jan 30 17:05:58 2008
@@ -110,7 +110,7 @@
 
     # add attachments to a ticket
     # text attachment
-    check_attachment("$RT::BasePath/lib/t/data/lorem-ipsum");
+    check_attachment("$RT::BASE_PATH/lib/t/data/lorem-ipsum");
     # binary attachment
     check_attachment($RT::MasonComponentRoot.'/NoAuth/images/bplogo.gif');

More information about the Rt-commit mailing list