2d9fbadcad
To test 1/ Apply patch 2/ run t/Koha_Email.t No changes to behaviour have been implemented yet Signed-off-by: Owen Leonard <oleonard@myacpl.org> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
11 lines
342 B
Perl
Executable file
11 lines
342 B
Perl
Executable file
use Modern::Perl;
|
|
|
|
use Test::More tests => 4; # last test to print
|
|
|
|
use_ok('Koha::Email');
|
|
|
|
my $from = 'chrisc@catalyst.net.nz';
|
|
|
|
ok( my $email = Koha::Email->new(), 'Create a Koha::Email Object');
|
|
ok( my %mail = $email->create_message_headers({from => $from}),'Set headers');
|
|
is ($mail{'From'}, $from, 'Set correctly');
|