t/04basic.t

   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');