#!/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::MockObject;

use Koha::Illrequest;

use Koha::Illrequest::SupplierUpdate;

use Test::More tests => 4;

use_ok('Koha::Illrequest::SupplierUpdate');

my $update = Koha::Illrequest::SupplierUpdate->new(

    'test_type',

    'test_name',

    'Arbitrary update text'

);

isa_ok( $update, 'Koha::Illrequest::SupplierUpdate' );

my $processor = Test::MockObject->new;

$processor->set_isa('Koha::Illrequest::Processor');

$processor->{name} = 'Test processor';

$processor->mock('run', sub {

    my ( $self, $update, $result ) = @_;

    push @{$result->{success}}, 'Hello';

});

# attach_processor

$update->attach_processor($processor);

is(

    scalar @{$update->{processors}},

    1,

    'attach_processors works'

);

# run_processors

is_deeply(

    $update->run_processors(),

    [{

        name => 'Test processor',

        result => {

            success => ['Hello'],

            error => []

        }

    }],

    'run_processors calls attached processors'

);

#!/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 Koha::Illrequest::SupplierUpdateProcessor;

use Test::More tests => 3;

use Test::Warn;

my $processor = Koha::Illrequest::SupplierUpdateProcessor->new(

    'test_type',

    'test_name',

    'Test processor name'

);

use_ok('Koha::Illrequest::SupplierUpdateProcessor');

isa_ok( $processor, 'Koha::Illrequest::SupplierUpdateProcessor' );

warning_like {

    $processor->run()

} qr/run should only be invoked by a subclass/, 'Invoking base class "run" warns';

    # backend_get_update

    $backend->mock(

        'get_supplier_update',

        sub {

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

            return {

                delay => $delay

            }

        }

    );

    $backend->mock('capabilities', sub { return sub { return 1; } });

    is_deeply($illrq->backend_get_update(), 1,

              "Backend get_update method.");

    #attach_processors

    my $type = 'test_type_1';

    my $name = 'test_name_1';

    my $update = Test::MockObject->new;

    $update->set_isa('Koha::Illrequest::SupplierUpdate');

    $update->{source_type} = $type;

    $update->{source_name} = $name;

    $update->{processors} = [];

    $update->mock('attach_processor', sub {

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

        push @{$self->{processors}}, $to_attach;

    });

    my $processor = Test::MockObject->new;

    $processor->{target_source_type} = $type;

    $processor->{target_source_name} = $name;

    $illrq_obj->init_processors();

    $illrq_obj->push_processor($processor);

    $illrq_obj->attach_processors($update);

    is_deeply(

        scalar @{$update->{processors}},

        1,

        'attaching processors as appropriate works'

    );

    # ill update notice, passes additional text parameter

    my $attr_update = Koha::MessageAttributes->find({ message_name => 'Ill_update' });

    C4::Members::Messaging::SetMessagingPreference({

        borrowernumber => $patron->{borrowernumber},

        message_attribute_id => $attr_update->message_attribute_id,

        message_transport_types => ['email']

    });

    my $return_patron_update = $illrq_obj->send_patron_notice('ILL_REQUEST_UPDATE', 'Some additional text');

    my $notice_update = $schema->resultset('MessageQueue')->search({

            letter_code => 'ILL_REQUEST_UPDATE',

            message_transport_type => 'email',

            borrowernumber => $illrq_obj->borrowernumber

        })->next()->letter_code;

    is_deeply(

        $return_patron_update,

        { result => { success => ['email'], fail => [] } },

        "Correct return when notice created"

    );

    is($notice_update, 'ILL_REQUEST_UPDATE' ,"Notice is correctly created");

    $illrq_obj->append_to_note('Some text');

    like(

        $illrq_obj->notesstaff,

        qr/Some text$/,

        'appending to a note works'

    );