Bug 22823: Add unit tests for get_effective_email

This patch adds unit tests for the newly introduced get_effective_email
method in the Koha::Library class.

Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2020-02-25 07:36:12 +00:00
parent 21807202d4
commit b16d433943
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
1 changed files with 38 additions and 1 deletions

View File

@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 9;
use Test::More tests => 10;
use C4::Biblio;
use C4::Context;
@ -452,6 +452,43 @@ subtest '->get_effective_marcorgcode' => sub {
$schema->storage->txn_rollback;
};
subtest '->get_effective_email' => sub {
plan tests => 4;
$schema->storage->txn_begin;
my $library_1 = $builder->build_object(
{
class => 'Koha::Libraries',
value => {
branchemail => 'from@mybranc.com',
branchreplyto => 'reply@mybranch.com'
}
}
);
t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'admin@mylibrary.com' );
t::lib::Mocks::mock_preference( 'ReplytoDefault', 'reply@mylibrary.com' );
is( $library_1->get_effective_email, $library_1->branchreplyto,
'If defined, use branches replyto address');
$library_1->branchreplyto(undef)->store();
is( $library_1->get_effective_email, $library_1->branchemail,
'Fallback to branches email address when branchreplyto is undefined');
$library_1->branchemail(undef)->store();
is( $library_1->get_effective_email, 'reply@mylibrary.com',
'Fallback to ReplytoDefault email address when branchreplyto and branchemail are undefined');
t::lib::Mocks::mock_preference( 'ReplytoDefault', undef );
is( $library_1->get_effective_email, 'admin@mylibrary.com',
'Fallback to KohaAdminEmailAddress email address when branchreplyto, branchemail and eplytoDefault are undefined');
$schema->storage->txn_rollback;
};
subtest 'cash_registers' => sub {
plan tests => 3;