X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2FRT%2FTest%2FEmail.pm;h=77431fdcd36bece243b40cf6e6123debe97f69db;hp=3905d82cb1954050e12e0f4dee232dcea580f1e5;hb=9aee669886202be7035e6c6049fc71bc99dd3013;hpb=fc6209f398899f0211cfcedeb81a3cd65e04a941 diff --git a/rt/lib/RT/Test/Email.pm b/rt/lib/RT/Test/Email.pm index 3905d82cb..77431fdcd 100644 --- a/rt/lib/RT/Test/Email.pm +++ b/rt/lib/RT/Test/Email.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -56,8 +56,6 @@ use Email::Abstract; use base 'Exporter'; our @EXPORT = qw(mail_ok); -RT::Test->set_mail_catcher; - =head1 NAME RT::Test::Email - @@ -122,7 +120,8 @@ END { if (scalar @mail) { diag ((scalar @mail)." uncaught notification email at end of test: "); diag "From: @{[ $_->header('From' ) ]}, Subject: @{[ $_->header('Subject') ]}" - for @mail; + for map { Email::Abstract->new($_)->cast('Email::Simple') } @mail; + die; } }