[Rt-commit] r13818 - in rt/3.8/trunk: . t t/mail t/web
spang at bestpractical.com
spang at bestpractical.com
Mon Jul 7 04:48:27 EDT 2008
Author: spang
Date: Mon Jul 7 04:48:27 2008
New Revision: 13818
Modified:
rt/3.8/trunk/ (props changed)
rt/3.8/trunk/t/00-mason-syntax.t
rt/3.8/trunk/t/mail/crypt-gnupg.t
rt/3.8/trunk/t/mail/gnupg-bad.t
rt/3.8/trunk/t/mail/gnupg-incoming.t
rt/3.8/trunk/t/mail/gnupg-realmail.t
rt/3.8/trunk/t/mail/gnupg-reverification.t
rt/3.8/trunk/t/mail/sendmail.t
rt/3.8/trunk/t/shredder/00load.t
rt/3.8/trunk/t/shredder/00skeleton.t
rt/3.8/trunk/t/shredder/01basics.t
rt/3.8/trunk/t/shredder/01ticket.t
rt/3.8/trunk/t/shredder/02group_member.t
rt/3.8/trunk/t/shredder/02queue.t
rt/3.8/trunk/t/shredder/02template.t
rt/3.8/trunk/t/shredder/02user.t
rt/3.8/trunk/t/shredder/03plugin.t
rt/3.8/trunk/t/shredder/03plugin_summary.t
rt/3.8/trunk/t/shredder/03plugin_tickets.t
rt/3.8/trunk/t/shredder/03plugin_users.t
rt/3.8/trunk/t/shredder/utils.pl
rt/3.8/trunk/t/web/command_line.t
Log:
r43693 at loki: spang | 2008-07-07 09:44:58 +0100
update to non-mispelled method name
Modified: rt/3.8/trunk/t/00-mason-syntax.t
==============================================================================
--- rt/3.8/trunk/t/00-mason-syntax.t (original)
+++ rt/3.8/trunk/t/00-mason-syntax.t Mon Jul 7 04:48:27 2008
@@ -24,7 +24,7 @@
$ok = 0;
diag "error in ${File::Find::name}:\n$@";
},
-}, RT::Test::get_relocateable_dir('../share/html'));
+}, RT::Test::get_relocatable_dir('../share/html'));
ok($ok, "mason syntax is ok");
use HTML::Mason;
Modified: rt/3.8/trunk/t/mail/crypt-gnupg.t
==============================================================================
--- rt/3.8/trunk/t/mail/crypt-gnupg.t (original)
+++ rt/3.8/trunk/t/mail/crypt-gnupg.t Mon Jul 7 04:48:27 2008
@@ -18,7 +18,7 @@
use File::Spec ();
use Cwd;
-my $homedir = RT::Test::get_abs_relocateable_dir(File::Spec->updir(),
+my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(),
qw(data gnupg keyrings) );
mkdir $homedir;
Modified: rt/3.8/trunk/t/mail/gnupg-bad.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-bad.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-bad.t Mon Jul 7 04:48:27 2008
@@ -14,7 +14,7 @@
use Cwd 'getcwd';
-my $homedir = RT::Test::get_abs_relocateable_dir(File::Spec->updir(),
+my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(),
qw(data gnupg keyrings));
RT->Config->Set( LogToScreen => 'debug' );
Modified: rt/3.8/trunk/t/mail/gnupg-incoming.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-incoming.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-incoming.t Mon Jul 7 04:48:27 2008
@@ -17,7 +17,7 @@
use String::ShellQuote 'shell_quote';
use IPC::Run3 'run3';
-my $homedir = RT::Test::get_abs_relocateable_dir(File::Spec->updir(),
+my $homedir = RT::Test::get_abs_relocatable_dir(File::Spec->updir(),
qw(data gnupg keyrings));
# catch any outgoing emails
Modified: rt/3.8/trunk/t/mail/gnupg-realmail.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-realmail.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-realmail.t Mon Jul 7 04:48:27 2008
@@ -69,7 +69,7 @@
my ($eid, $usage, $format, $attachment) = @_;
diag "email_ok $eid: $usage, $format, $attachment" if $ENV{'TEST_VERBOSE'};
- my $emaildatadir = RT::Test::get_relocateable_dir(File::Spec->updir(),
+ my $emaildatadir = RT::Test::get_relocatable_dir(File::Spec->updir(),
qw(data gnupg emails));
my ($file) = glob("$emaildatadir/$eid-*");
my $mail = RT::Test->file_content($file);
Modified: rt/3.8/trunk/t/mail/gnupg-reverification.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-reverification.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-reverification.t Mon Jul 7 04:48:27 2008
@@ -49,7 +49,7 @@
my @ticket_ids;
-my $emaildatadir = RT::Test::get_relocateable_dir(File::Spec->updir(),
+my $emaildatadir = RT::Test::get_relocatable_dir(File::Spec->updir(),
qw(data gnupg emails));
my @files = glob("$emaildatadir/*-signed-*");
foreach my $file ( @files ) {
Modified: rt/3.8/trunk/t/mail/sendmail.t
==============================================================================
--- rt/3.8/trunk/t/mail/sendmail.t (original)
+++ rt/3.8/trunk/t/mail/sendmail.t Mon Jul 7 04:48:27 2008
@@ -45,7 +45,7 @@
my $parser = RT::EmailParser->new();
# Let's test to make sure a multipart/report is processed correctly
-my $multipart_report_email = RT::Test::get_relocateable_file('multipart-report',
+my $multipart_report_email = RT::Test::get_relocatable_file('multipart-report',
(File::Spec->updir(), 'data', 'emails'));
my $content = RT::Test->file_content($multipart_report_email);
# be as much like the mail gateway as possible.
@@ -102,7 +102,7 @@
# create an iso 8859-1 ticket
@scrips_fired = ();
-my $iso_8859_1_ticket_email = RT::Test::get_relocateable_file(
+my $iso_8859_1_ticket_email = RT::Test::get_relocatable_file(
'new-ticket-from-iso-8859-1', (File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($iso_8859_1_ticket_email);
@@ -246,7 +246,7 @@
# {{{ test a multipart alternative containing a text-html part with an umlaut
- my $alt_umlaut_email = RT::Test::get_relocateable_file(
+ my $alt_umlaut_email = RT::Test::get_relocatable_file(
'multipart-alternative-with-umlaut', (File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($alt_umlaut_email);
@@ -276,7 +276,7 @@
# }}}
# {{{ test a text-html message with an umlaut
- my $text_html_email = RT::Test::get_relocateable_file('text-html-with-umlaut',
+ my $text_html_email = RT::Test::get_relocatable_file('text-html-with-umlaut',
(File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($text_html_email);
@@ -313,7 +313,7 @@
# }}}
# {{{ test a text-html message with russian characters
- my $russian_email = RT::Test::get_relocateable_file('text-html-in-russian',
+ my $russian_email = RT::Test::get_relocatable_file('text-html-in-russian',
(File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($russian_email);
@@ -341,7 +341,7 @@
RT->Config->Set( EmailInputEncodings => 'koi8-r', RT->Config->Get('EmailInputEncodings') );
RT->Config->Set( EmailOutputEncoding => 'koi8-r' );
-my $russian_subject_email = RT::Test::get_relocateable_file(
+my $russian_subject_email = RT::Test::get_relocatable_file(
'russian-subject-no-content-type', (File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($russian_subject_email);
@@ -384,7 +384,7 @@
# {{{ test a message containing a nested RFC 822 message
-my $nested_rfc822_email = RT::Test::get_relocateable_file('nested-rfc-822',
+my $nested_rfc822_email = RT::Test::get_relocatable_file('nested-rfc-822',
(File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($nested_rfc822_email);
ok ($content, "Loaded nested-rfc-822 to test");
@@ -425,7 +425,7 @@
# {{{ test a multipart alternative containing a uuencoded mesage generated by lotus notes
- my $uuencoded_email = RT::Test::get_relocateable_file('notes-uuencoded',
+ my $uuencoded_email = RT::Test::get_relocatable_file('notes-uuencoded',
(File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($uuencoded_email);
@@ -452,7 +452,7 @@
# {{{ test a multipart that crashes the file-based mime-parser works
- my $crashes_file_based_parser_email = RT::Test::get_relocateable_file(
+ my $crashes_file_based_parser_email = RT::Test::get_relocatable_file(
'crashes-file-based-parser', (File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($crashes_file_based_parser_email);
@@ -481,7 +481,7 @@
# {{{ test a multi-line RT-Send-CC header
- my $rt_send_cc_email = RT::Test::get_relocateable_file('rt-send-cc',
+ my $rt_send_cc_email = RT::Test::get_relocatable_file('rt-send-cc',
(File::Spec->updir(), 'data', 'emails'));
$content = RT::Test->file_content($rt_send_cc_email);
@@ -508,7 +508,7 @@
diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
{
- my $subject_folding_email = RT::Test::get_relocateable_file(
+ my $subject_folding_email = RT::Test::get_relocatable_file(
'subject-with-folding-ws', (File::Spec->updir(), 'data', 'emails'));
my $content = RT::Test->file_content($subject_folding_email);
my ($status, $msg, $ticket) = RT::Interface::Email::Gateway(
@@ -521,7 +521,7 @@
diag q{regression test for #5248 from rt3.fsck.com} if $ENV{TEST_VERBOSE};
{
- my $long_subject_email = RT::Test::get_relocateable_file('very-long-subject',
+ my $long_subject_email = RT::Test::get_relocatable_file('very-long-subject',
(File::Spec->updir(), 'data', 'emails'));
my $content = RT::Test->file_content($long_subject_email);
my ($status, $msg, $ticket) = RT::Interface::Email::Gateway(
Modified: rt/3.8/trunk/t/shredder/00load.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00load.t (original)
+++ rt/3.8/trunk/t/shredder/00load.t Mon Jul 7 04:48:27 2008
@@ -5,7 +5,7 @@
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/00skeleton.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00skeleton.t (original)
+++ rt/3.8/trunk/t/shredder/00skeleton.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/01basics.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01basics.t (original)
+++ rt/3.8/trunk/t/shredder/01basics.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/01ticket.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01ticket.t (original)
+++ rt/3.8/trunk/t/shredder/01ticket.t Mon Jul 7 04:48:27 2008
@@ -11,7 +11,7 @@
plan tests => 15;
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/02group_member.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02group_member.t (original)
+++ rt/3.8/trunk/t/shredder/02group_member.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/02queue.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02queue.t (original)
+++ rt/3.8/trunk/t/shredder/02queue.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/02template.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02template.t (original)
+++ rt/3.8/trunk/t/shredder/02template.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/02user.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02user.t (original)
+++ rt/3.8/trunk/t/shredder/02user.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/03plugin.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/03plugin_summary.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_summary.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_summary.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/03plugin_tickets.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_tickets.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_tickets.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/03plugin_users.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_users.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_users.t Mon Jul 7 04:48:27 2008
@@ -8,7 +8,7 @@
use File::Spec;
use RT::Test ();
BEGIN {
- my $shredder_utils = RT::Test::get_relocateable_file('utils.pl',
+ my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
Modified: rt/3.8/trunk/t/shredder/utils.pl
==============================================================================
--- rt/3.8/trunk/t/shredder/utils.pl (original)
+++ rt/3.8/trunk/t/shredder/utils.pl Mon Jul 7 04:48:27 2008
@@ -138,7 +138,7 @@
foreach ( qw(Type Host Port Name User Password) ) {
$ENV{ "RT_DB_". uc $_ } = RT->Config->Get("Database$_");
}
- my $rt_setup_database = RT::Test::get_relocateable_file(
+ my $rt_setup_database = RT::Test::get_relocatable_file(
'rt-setup-database', (File::Spec->updir(), File::Spec->updir(), 'sbin'));
my $cmd = "$^X $rt_setup_database --action init";
@@ -220,7 +220,7 @@
=cut
sub tmpdir {
- return RT::Test::get_abs_relocateable_dir(File::Spec->updir(),
+ return RT::Test::get_abs_relocatable_dir(File::Spec->updir(),
'data', 'shredder');
}
Modified: rt/3.8/trunk/t/web/command_line.t
==============================================================================
--- rt/3.8/trunk/t/web/command_line.t (original)
+++ rt/3.8/trunk/t/web/command_line.t Mon Jul 7 04:48:27 2008
@@ -109,7 +109,7 @@
expect_like(qr/Message recorded/, "Added the correspondence");
### should test to make sure it actually got added
- my $test_email = RT::Test::get_relocateable_file('lorem-ipsum',
+ my $test_email = RT::Test::get_relocatable_file('lorem-ipsum',
(File::Spec->updir(), 'data', 'emails'));
# add attachments to a ticket
# text attachment
More information about the Rt-commit
mailing list