t/Koha_Email.t

   1 use Modern::Perl;
   2
   3 use Test::More tests => 4;                      # last test to print
   4
   5 use_ok('Koha::Email');
   6
   7 my $from = 'chrisc@catalyst.net.nz';
   8
   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');