t/04basic.t

   1 use strict;
   2 use warnings;
   3 BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' }
   4 use Test::More;
   5
   6 use Email::Sender::Simple;
   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
  16 my @emails = Email::Sender::Simple->default_transport->deliveries;
  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');
  20
  21 done_testing();