stop tests from trying to really send an email

wchristian · Oct 25, 2015 · cefe961 · cefe961
1 parent 2e83b96
commit cefe961
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/t/email-template.t b/t/email-template.t
@@ -6,18 +6,24 @@ use utf8;
 use Cwd 'abs_path';
 my $tt2 = abs_path($0) .'t2';
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 
 use_ok 'Email::Template';
 
+my $subject = "Email::Template is easy to use";
+
 ok Email::Template->send( $tt2,
         {
             From    => 'sender@domain.tld',
             To      => 'recipient@domain.tld',
-            Subject => 'Email::Template is easy to use',
+            Subject => $subject,
             tt_new  => { ENCODING => 'utf8' },
             tt_vars => { key0 => 'value0', key1 => 'value1', },
             convert => { no_rowspacing => 1, rm => 80, },
+            mime_lite_send => [
+                "sub",
+                sub { like shift->as_string, qr/$subject/, "email was sent" }
+            ]
         }
     ),
     'Email::Template->send()';
@@ -26,7 +32,7 @@ isa_ok Email::Template->send( $tt2,
         {
             From    => 'sender@domain.tld',
             To      => 'recipient@domain.tld',
-            Subject => 'Email::Template is easy to use',
+            Subject => $subject,
             tt_new  => { ENCODING => 'utf8' },
             tt_vars => { key0 => 'value0', key1 => 'カタカナ', },
             return_mime_lite => 1,