[catagits/Catalyst-View-Email.git] / t / 04basic.t

use strict;
use warnings;
BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }
use Test::More;

use Email::Sender::Simple;
use FindBin;
use lib "$FindBin::Bin/lib";

use_ok('Catalyst::Test', 'TestApp');

my $response;
my $time = time;
ok( ($response = request("/email?time=$time"))->is_success, 'request ok');

my @emails = Email::Sender::Simple->default_transport->deliveries;
is( scalar @emails, 1, "got emails");
isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
like($emails[0]->{'email'}->[0]->body, qr/$time/, 'Got our email');

done_testing();
Commit	Line	Data
82300460	1	use strict;
82300460	2	use warnings;
d8e2374d	3	BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }
d8e2374d	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();