Lines 28-34
use_ok('Koha::Email');
Link Here
|
28 |
|
28 |
|
29 |
subtest 'create() tests' => sub { |
29 |
subtest 'create() tests' => sub { |
30 |
|
30 |
|
31 |
plan tests => 24; |
31 |
plan tests => 25; |
32 |
|
32 |
|
33 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef ); |
33 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef ); |
34 |
|
34 |
|
Lines 64-76
subtest 'create() tests' => sub {
Link Here
|
64 |
|
64 |
|
65 |
$email = Koha::Email->create( |
65 |
$email = Koha::Email->create( |
66 |
{ |
66 |
{ |
67 |
from => 'from@example.com', |
67 |
from => 'from@8.8.8.8', |
68 |
to => 'to@example.com', |
68 |
to => 'to@example.com', |
69 |
bcc => 'root@localhost', |
69 |
bcc => 'root@localhost', |
70 |
} |
70 |
} |
71 |
); |
71 |
); |
72 |
|
72 |
|
73 |
is( $email->email->header('Bcc'), 'root@localhost', 'Non-FQDN (@localhost) supported' ); |
73 |
is( $email->email->header('Bcc'), 'root@localhost', 'Non-FQDN (@localhost) supported' ); |
|
|
74 |
is( $email->email->header('From'), 'from@8.8.8.8', 'IPs supported' ); |
74 |
|
75 |
|
75 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', 'catchall@example.com' ); |
76 |
t::lib::Mocks::mock_preference( 'SendAllEmailsTo', 'catchall@example.com' ); |
76 |
t::lib::Mocks::mock_preference( 'ReplytoDefault', 'replytodefault@example.com' ); |
77 |
t::lib::Mocks::mock_preference( 'ReplytoDefault', 'replytodefault@example.com' ); |
77 |
- |
|
|