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 use Data::Dumper;
  18 warn "Emails: " . Dumper @emails;
  19 warn "Body: " . $emails[0]->{'email'}->[0]->body;
  20 is( scalar @emails, 1, "got emails");
  21 isa_ok( $emails[0]->{'email'}, 'Email::Abstract', 'email is ok' );
  22 like($emails[0]->{'email'}->[0]->body, qr/$time/, 'Got our email');
  23
  24 done_testing();