Bug 37757: Unit tests

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Tomás Cohen Arazi 2024-08-28 14:56:44 -03:00 committed by Katrin Fischer
parent c0ff193986
commit 24f84f11a2
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834

View file

@ -1789,17 +1789,19 @@ subtest 'notify_library_of_registration()' => sub {
$schema->storage->txn_rollback;
};
subtest 'notice_email_address' => sub {
subtest 'notice_email_address() tests' => sub {
plan tests => 3;
$schema->storage->txn_begin;
my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
t::lib::Mocks::mock_preference( 'EmailFieldPrecedence', 'email|emailpro' );
t::lib::Mocks::mock_preference( 'EmailFieldPrimary', 'OFF' );
t::lib::Mocks::mock_preference( 'EmailFieldPrimary', undef );
is(
$patron->notice_email_address, $patron->email,
"Koha::Patron->notice_email_address returns correct value when EmailFieldPrimary is off"
"Koha::Patron->notice_email_address returns correct value when EmailFieldPrimary is not defined"
);
t::lib::Mocks::mock_preference( 'EmailFieldPrimary', 'emailpro' );
@ -1815,7 +1817,6 @@ subtest 'notice_email_address' => sub {
"Koha::Patron->notice_email_address returns correct value when EmailFieldPrimary is 'MULTI' and EmailFieldSelection is 'email,emailpro'"
);
$patron->delete;
$schema->storage->txn_rollback;
};