X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07mason.t;h=12707469330bfb074768a524f9534f199e635156;hb=1e331578b273b9d419d25dd23d6f720e289c9414;hp=a14e02a4f7874cad21cf1b9f02b96c0ca621f6ff;hpb=cce24d41c4d7191c65818bff8681be8849bace3d;p=catagits%2FCatalyst-View-Email.git diff --git a/t/07mason.t b/t/07mason.t index a14e02a..1270746 100644 --- a/t/07mason.t +++ b/t/07mason.t @@ -23,12 +23,12 @@ ok( ( $response = request("/mason_email?time=$time"))->is_success, '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');