Commit | Line | Data |
82300460 |
1 | use strict; |
2 | use warnings; |
d8e2374d |
3 | BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' } |
4 | use Test::More; |
82300460 |
5 | |
d8e2374d |
6 | use Email::Sender::Simple; |
82300460 |
7 | use FindBin; |
8 | use lib "$FindBin::Bin/lib"; |
9 | |
10 | use_ok('Catalyst::Test', 'TestApp'); |
11 | |
12 | my $response; |
13 | my $time = time; |
14 | ok( ($response = request("/email?time=$time"))->is_success, 'request ok'); |
15 | |
d8e2374d |
16 | my @emails = Email::Sender::Simple->default_transport->deliveries; |
d8e2374d |
17 | is( scalar @emails, 1, "got emails"); |
18 | isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' ); |
19 | like($emails[0]->{'email'}->[0]->body, qr/$time/, 'Got our email'); |
82300460 |
20 | |
d8e2374d |
21 | done_testing(); |