Commit | Line | Data |
---|---|---|
82300460 | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More tests => 5; | |
4 | ||
5 | use Email::Send::Test; | |
6 | use FindBin; | |
7 | use lib "$FindBin::Bin/lib"; | |
8 | ||
9 | use_ok('Catalyst::Test', 'TestApp'); | |
10 | ||
11 | my $response; | |
12 | my $time = time; | |
13 | ok( ($response = request("/email?time=$time"))->is_success, 'request ok'); | |
14 | ||
15 | my @emails = Email::Send::Test->emails; | |
16 | ||
17 | is(@emails, 1, "got emails"); | |
18 | isa_ok( $emails[0], 'Email::MIME', 'email is ok' ); | |
19 | like($emails[0]->body, qr/$time/, 'Got our email'); |