Change emails to use construct_email from mySociety::Email for encoding and line wrapping

1 files changed, 8 insertions, 16 deletions

diff --git a/t/app/helpers/send_email.t b/t/app/helpers/send_email.t
index a44ddb01c..16e85b4ce 100644
--- a/t/app/helpers/send_email.t
+++ b/t/app/helpers/send_email.t
@@ -9,9 +9,10 @@ BEGIN {
     FixMyStreet->test_mode(1);
 }
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 use Email::Send::Test;
+use Path::Class;
 
 use_ok 'FixMyStreet::App';
 my $c = FixMyStreet::App->new;
@@ -20,7 +21,6 @@ my $c = FixMyStreet::App->new;
 $c->req->uri( URI->new('http://localhost/') );
 $c->req->base( $c->req->uri );
 
-
 # set some values in the stash
 $c->stash->{foo} = 'bar';
 
@@ -34,19 +34,11 @@ ok $c->send_email( 'test', { to => 'test@recipient.com' } ), "sent an email";
 my @emails = Email::Send::Test->emails;
 is scalar(@emails), 1, "caught one email";
 
-is $emails[0]->as_string, << 'END_OF_BODY', "email is as expected";
-Subject: test email
-From: evdb@ecclestoad.co.uk
-To: test@recipient.com
-Content-Type: text/plain; charset="utf-8"
-
-Hello,
-
-This is a test email where foo: bar.
-
-utf8: 我们应该能够无缝处理UTF8编码
+# Get the email, check it has a date and then strip it out
+my $email_as_string = $emails[0]->as_string;
+ok $email_as_string =~ s{\s+Date:\s+\S.*?$}{}xms, "Found and stripped out date";
 
-Yours,
-  FixMyStreet.
-END_OF_BODY
 
+is $email_as_string,
+  file(__FILE__)->dir->file('send_email_sample.txt')->slurp,
+  "email is as expected";