diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-06-30 01:03:13 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-06-30 01:03:13 -0700 |
| commit | f3c4966ed1f6ec3db7accd6dcdd3a5a3821d72a7 (patch) | |
| tree | e5e9a077260613e6117d4697dd2985abd9b03d34 /rt/lib/RT/Test/Email.pm | |
| parent | cf7cd8efc7095aadbdfb0cd8e7ea0e2e8b9e9085 (diff) | |
| parent | cd3eb95ed1f3dc3e04cfc2b3b405f75b3ab086da (diff) | |
merging RT 4.0.6
Diffstat (limited to 'rt/lib/RT/Test/Email.pm')
| -rw-r--r-- | rt/lib/RT/Test/Email.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/rt/lib/RT/Test/Email.pm b/rt/lib/RT/Test/Email.pm index 3905d82cb..a8170c981 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-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (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; } } |