diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-06-07 00:56:06 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-06-07 00:56:06 -0700 |
| commit | 43a06151e47d2c59b833cbd8c26d97865ee850b6 (patch) | |
| tree | 42c51d94e7fa265461b508d061562be204ccc2c1 /rt/lib/RT/Test/Email.pm | |
| parent | 6587f6ba7d047ddc1686c080090afe7d53365bd4 (diff) | |
starting to work...
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; } } |