3 use Test::More tests => 4; # last test to print
7 my $from = 'chrisc@catalyst.net.nz';
9 ok( my $email = Koha::Email->new(), 'Create a Koha::Email Object');
10 ok( my %mail = $email->create_message_headers({from => $from}),'Set headers');
11 is ($mail{'From'}, $from, 'Set correctly');