View | Details | Raw Unified | Return to bug 13172
Collapse All | Expand All

(-)a/t/Koha_Email.t (-1 / +5 lines)
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
- 

Return to bug 13172