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

Bug 27173: Add tests

Browse source 
Test plan:
Run t/db_dependent/Koha/Plugins/authority_hooks.t

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Marcel de Rooy 2021-09-28 13:39:58 +00:00 committed by Jonathan Druart
parent e366d0d1dd
commit 064933165b
2 changed files with 77 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

70
t/db_dependent/Koha/Plugins/authority_hooks.t Executable file
View file

@ -0,0 +1,70 @@
#!/usr/bin/perl
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use MARC::Record;
use Test::More tests => 4;
use Test::Warn;
use File::Basename;
use C4::AuthoritiesMarc ();
use Koha::Database;
use t::lib::Mocks;
use t::lib::TestBuilder;
BEGIN {
# Mock pluginsdir before loading Plugins module
my $path = dirname(__FILE__) . '/../../../lib';
t::lib::Mocks::mock_config( 'pluginsdir', $path );
use_ok('Koha::Plugins');
use_ok('Koha::Plugins::Handler');
use_ok('Koha::Plugin::Test');
}
my $schema = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;
t::lib::Mocks::mock_config( 'enable_plugins', 1 );
subtest 'after_authority_action hook' => sub {
plan tests => 3;
$schema->storage->txn_begin;
my $plugins = Koha::Plugins->new;
$plugins->InstallPlugins;
my $plugin = Koha::Plugin::Test->new->enable;
my $id;
warning_like { ( $id ) = C4::AuthoritiesMarc::AddAuthority( MARC::Record->new, undef, 'PERSO_NAME' ); }
qr/after_authority_action called with action: create, id: \d+/,
'AddAuthority calls the hook with action=create, id passed';
warning_like { C4::AuthoritiesMarc::ModAuthority( $id, MARC::Record->new, 'PERSO_NAME', { skip_merge => 1 } ); }
qr/after_authority_action called with action: modify, id: $id/,
'ModAuthority calls the hook with action=modify, id passed';
warning_like { C4::AuthoritiesMarc::DelAuthority({ authid => $id, skip_merge => 1 }); }
qr/after_authority_action called with action: delete, id: $id/,
'DelAuthority calls the hook with action=delete, id passed';
$schema->storage->txn_rollback;
Koha::Plugins::Methods->delete;
};

7
t/lib/Koha/Plugin/Test.pm
View file

@ -179,6 +179,13 @@ sub after_item_action {
}
}
sub after_authority_action {
my ( $self, $params ) = @_;
my $action = $params->{action} // q{};
my $id = $params->{authority_id} // 0;
Koha::Exceptions::Exception->throw("after_authority_action called with action: $action, id: $id");
}
sub after_circ_action {
my ( $self, $params ) = @_;