[Catalyst-commits] r12581 - in
Catalyst-View-Email/branches/email-sender-porting:
lib/Catalyst/View/Email t t/lib/TestApp/Controller
dhoss at dev.catalyst.perl.org
dhoss at dev.catalyst.perl.org
Sat Jan 9 22:46:39 GMT 2010
Author: dhoss
Date: 2010-01-09 22:46:39 +0000 (Sat, 09 Jan 2010)
New Revision: 12581
Modified:
Catalyst-View-Email/branches/email-sender-porting/lib/Catalyst/View/Email/Template.pm
Catalyst-View-Email/branches/email-sender-porting/t/07mason.t
Catalyst-View-Email/branches/email-sender-porting/t/lib/TestApp/Controller/Root.pm
Log:
fixed 07mason.t test \o/
Modified: Catalyst-View-Email/branches/email-sender-porting/lib/Catalyst/View/Email/Template.pm
===================================================================
--- Catalyst-View-Email/branches/email-sender-porting/lib/Catalyst/View/Email/Template.pm 2010-01-09 21:26:32 UTC (rev 12580)
+++ Catalyst-View-Email/branches/email-sender-porting/lib/Catalyst/View/Email/Template.pm 2010-01-09 22:46:39 UTC (rev 12581)
@@ -3,7 +3,7 @@
use Moose;
use Carp;
use Scalar::Util qw/ blessed /;
-
+use Data::Dumper;
extends 'Catalyst::View::Email';
our $VERSION = '0.13.01';
@@ -218,10 +218,10 @@
{
content_type => $e_m_attrs->{content_type},
stash_key => $self->stash_key,
- %{ $c->stash },
+ %{$c->stash},
}
);
-
+ warn "Email output: $output";
if ( ref $output ) {
croak $output->can('as_string') ? $output->as_string : $output;
}
@@ -286,7 +286,8 @@
delete $c->stash->{$stash_key}->{body};
$c->stash->{$stash_key}->{parts} ||= [];
push @{ $c->stash->{$stash_key}->{parts} }, @parts;
-
+
+ warn "Stash: " . Dumper $c->stash;
return $self->$orig($c);
};
Modified: Catalyst-View-Email/branches/email-sender-porting/t/07mason.t
===================================================================
--- Catalyst-View-Email/branches/email-sender-porting/t/07mason.t 2010-01-09 21:26:32 UTC (rev 12580)
+++ Catalyst-View-Email/branches/email-sender-porting/t/07mason.t 2010-01-09 22:46:39 UTC (rev 12581)
@@ -23,12 +23,12 @@
'request ok' );
like( $response->content, qr/Mason Email Ok/, 'controller says ok' );
my @emails = Email::Sender::Simple->default_transport->deliveries;
-warn "Email: " . Dumper @emails;
+#warn "Email: " . Dumper @emails;
cmp_ok(@emails, '==', 1, 'got emails');
isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
my @parts = $emails[0]->{'email'}[0]->parts;
cmp_ok(@parts, '==', 2, 'got parts');
-warn "Parts: " . Dumper @parts;
+#warn "Parts: " . Dumper @parts;
is($parts[0]->content_type, 'text/plain', 'text/plain ok');
like($parts[0]->body, qr/test-email\@example.com on $time/, 'got content back');
is($parts[1]->content_type, 'text/html', 'text/html ok');
Modified: Catalyst-View-Email/branches/email-sender-porting/t/lib/TestApp/Controller/Root.pm
===================================================================
--- Catalyst-View-Email/branches/email-sender-porting/t/lib/TestApp/Controller/Root.pm 2010-01-09 21:26:32 UTC (rev 12580)
+++ Catalyst-View-Email/branches/email-sender-porting/t/lib/TestApp/Controller/Root.pm 2010-01-09 22:46:39 UTC (rev 12581)
@@ -127,10 +127,10 @@
to => 'test-email at example.com',
from => 'no-reply at example.com',
subject => 'Just a test',
- view => 'Mason',
templates => [
{
- template => 'text_plain/test.m',
+ view => 'Mason',
+ template => 'text_plain/test.m',
content_type => 'text/plain',
},
{
More information about the Catalyst-commits
mailing list