Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 25313: (QA follow-up) DelAuthority tests

Browse source 
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Tomás Cohen Arazi 2020-08-11 09:32:10 -03:00 committed by Jonathan Druart
parent 517dcabdf7
commit d4a15b27b8
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
t/db_dependent/AuthoritiesMarc.t
View file

@ -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;
};