@@ -, +, @@ --- t/db_dependent/AuthoritiesMarc.t | 35 +++++++++++++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) --- a/t/db_dependent/AuthoritiesMarc.t +++ a/t/db_dependent/AuthoritiesMarc.t @@ -5,7 +5,7 @@ use Modern::Perl; -use Test::More tests => 10; +use Test::More tests => 11; use Test::MockModule; use Test::Warn; use MARC::Record; @@ -248,3 +248,36 @@ subtest 'ModAuthority() tests' => sub { $schema->storage->txn_rollback; }; + +subtest 'DelAuthority() tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + + my $auth_type = 'GEOGR_NAME'; + my $record = MARC::Record->new; + $record->add_fields( + [ '001', '1' ], + [ '151', ' ', ' ', a => 'United States' ] + ); +; + my $auth_id = AddAuthority( $record, undef, $auth_type ); + + my $mocked_authorities_marc = Test::MockModule->new('C4::AuthoritiesMarc'); + $mocked_authorities_marc->mock( 'merge', sub { warn 'merge called'; } ); + + warning_is + { DelAuthority({ authid => $auth_id }); } + 'merge called', + 'No param, merge called'; + + $auth_id = AddAuthority( $record, undef, $auth_type ); + + warning_is + { DelAuthority({ authid => $auth_id, skip_merge => 1 }); } + undef, + 'skip_merge passed, merge not called'; + + $schema->storage->txn_rollback; +}; --