#!/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 Test::More tests => 4;

use Test::Warn;

use File::Basename;

use C4::Circulation qw(AddIssue AddRenewal);

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 'post_renewal_action() hook tests' => sub {

    plan tests => 4;

    $schema->storage->txn_begin;

    my $plugins = Koha::Plugins->new;

    $plugins->InstallPlugins;

    my $plugin = Koha::Plugin::Test->new->enable;

    my $patron = $builder->build_object({ class => 'Koha::Patrons' });

    t::lib::Mocks::mock_userenv(

        {

            patron     => $patron,

            branchcode => $patron->branchcode

        }

    );

    my ($biblio, $item);

    warning_like { $biblio = $builder->build_sample_biblio(); }

            qr/after_biblio_action called with action: create, ref: Koha::Biblio/,

            'AddBiblio calls the hook with action=create';

    warning_like { $item = $builder->build_sample_item({ biblionumber => $biblio->biblionumber }); }

            qr/after_item_action called with action: create, ref: Koha::Item/,

            'AddItem calls the hook with action=create';

    warning_like { AddIssue( $patron->unblessed, $item->barcode ); }

            qr/after_item_action called with action: modify, ref: Koha::Item/,

            'AddItem calls the hook with action=modify';

    warnings_like { AddRenewal( $patron->borrowernumber, $item->id, $patron->branchcode ); }

            [ qr/after_item_action called with action: modify, ref: Koha::Item/,

              qr/post_renewal_action .* DateTime/ ],

            'AddRenewal calls the post_renewal_action hook';

    $schema->storage->txn_rollback;

    Koha::Plugins::Methods->delete;

};

sub post_renewal_action {

    my ( $self, $params ) = @_;

    my $renewal_library_id = $params->{renewal_library_id};

    my $charge             = $params->{charge};

    my $item_id            = $params->{item_id};

    my $item_type          = $params->{item_type};

    my $shelving_location  = $params->{shelving_location};

    my $patron_id          = $params->{patron_id};

    my $collection_code    = $params->{collection_code};

    my $date_due           = $params->{date_due};

    Koha::Exceptions::Exception->throw(

        "post_renewal_action " .

        "$renewal_library_id " .

        "$charge " .

        "$item_id " .

        "$item_type " .

        "$shelving_location " .

        "$patron_id " .

        "$collection_code " .

        ref($date_due)

    );

}