Lines 1-10
Link Here
|
1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
2 |
|
2 |
|
|
|
3 |
use t::lib::Mocks; |
3 |
use Test::More tests => 4; # last test to print |
4 |
use Test::More tests => 4; # last test to print |
4 |
|
5 |
|
5 |
use_ok('Koha::Email'); |
6 |
use_ok('Koha::Email'); |
6 |
|
7 |
|
7 |
my $from = 'chrisc@catalyst.net.nz'; |
8 |
my $from = 'chrisc@catalyst.net.nz'; |
|
|
9 |
t::lib::Mocks::mock_preference('ReplytoDefault', $from); |
10 |
t::lib::Mocks::mock_preference('ReturnpathDefault', $from); |
11 |
|
12 |
|
8 |
|
13 |
|
9 |
ok( my $email = Koha::Email->new(), 'Create a Koha::Email Object'); |
14 |
ok( my $email = Koha::Email->new(), 'Create a Koha::Email Object'); |
10 |
ok( my %mail = $email->create_message_headers({from => $from}),'Set headers'); |
15 |
ok( my %mail = $email->create_message_headers({from => $from}),'Set headers'); |
11 |
- |
|
|