You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

27 lines
575 B

10 years ago
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use LDV::Email;
use Test::More tests => 3;
10 years ago
my $email = LDV::Email->new({from => 'noreply@state.gov.no'});
isa_ok($email, "LDV::Email", "LDV::Email->new");
can_ok($email, qw(create send));
my @args = ('user@acme.com', 'Registration', 'body text');
my $expected = join("\r\n",
'From: noreply@state.gov.no',
'Reply-To: admin@example.com',
'To: user@acme.com',
'Subject: Registration',
'',
'body text',
'');
my $got = $email->create(@args);
$got =~ s/^Date:.*\r\n//m;
is($got, $expected, "creating of test email");
10 years ago
exit 0;