X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Flib%2FRT%2FTest%2FEmail.pm;h=c407592ace8c43ff5f87219b9cdbf080d2a8f591;hb=de9d037528895f7151a9aead6724ce2df95f9586;hp=3905d82cb1954050e12e0f4dee232dcea580f1e5;hpb=fc6209f398899f0211cfcedeb81a3cd65e04a941;p=freeside.git diff --git a/rt/lib/RT/Test/Email.pm b/rt/lib/RT/Test/Email.pm index 3905d82cb..c407592ac 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-2017 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; } }