3 BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }
6 use Email::Sender::Simple;
8 use lib "$FindBin::Bin/lib";
10 use_ok('Catalyst::Test', 'TestApp');
18 ok( ($response = request("/email_app_config?time=$time"))->is_success, 'request ok');
20 @emails = Email::Sender::Simple->default_transport->deliveries;
22 is(scalar @emails, 1, "got emails");
23 isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
24 like($emails[0]->{'email'}->[0]->body, qr/$time/, 'Got our email');
26 Email::Sender::Simple->default_transport->clear_deliveries;
29 ok( ($response = request("/template_email_app_config?time=$time"))->is_success, 'request ok');
31 @emails = Email::Sender::Simple->default_transport->deliveries;
33 is(scalar @emails, 1, "got emails");
34 isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
35 my @parts = $emails[0]->{'email'}[0]->parts;
36 cmp_ok(@parts, '==', 2, 'got parts');
38 is($parts[0]->content_type, 'text/plain', 'text/plain ok');
39 like($parts[0]->body, qr/test-email\@example.com on $time/, 'got content back');
40 is($parts[1]->content_type, 'text/html', 'text/html ok');
41 like($parts[1]->body, qr{<em>test-email\@example.com</em> on $time}, 'got content back');