subtest 'opac_available_backends() tests' => sub {

    plan tests => 6;

    $schema->storage->txn_begin;

    my $logged_in_user = $builder->build_object(

        {

            class => 'Koha::Patrons'

        }

    );

    _install_plugin_backend();

    # ILLOpacUnauthenticatedRequest = 0

    t::lib::Mocks::mock_preference( 'ILLOpacUnauthenticatedRequest', 0 );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', '' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends($logged_in_user), [ 'Test Plugin', 'Standard' ],

        'Two backends are available for OPAC, one plugin and the core Standard backend'

    );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', 'gibberish' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends($logged_in_user), [],

        'ILLOpacbackends contains a non-existing backend'

    );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', 'Standard' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends($logged_in_user), ['Standard'],

        'ILLOpacbackends contains Standard. Only the Standard backend should be returned'

    );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', 'Standard|Test Plugin' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends($logged_in_user), [ 'Test Plugin', 'Standard' ],

        'ILLOpacbackends contains both. Both backends should be returned'

    );

    # ILLOpacUnauthenticatedRequest = 1

    t::lib::Mocks::mock_preference( 'ILLOpacUnauthenticatedRequest', 1 );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', '' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends(undef), [ 'Standard' ],

        'Only the standard backend is available for OPAC, the installed plugin does not support unauthenticated requests'

    );

    t::lib::Mocks::mock_preference( 'ILLOpacbackends', 'Test Plugin' );

    is_deeply(

        Koha::ILL::Backends->opac_available_backends(undef), [],

        'The only backend for the OPAC is Test Plugin but it does not support unauthenticated requests'

    );

    Koha::Plugins::Methods->delete;

    $schema->storage->txn_rollback;

};

sub _install_plugin_backend {

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

    $plugins->InstallPlugins;

}

#!/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 => 1;

use C4::Biblio qw(DelBiblio);

use C4::Context;

use Koha::AuthUtils;

use t::lib::Mocks;

use t::lib::Selenium;

use t::lib::TestBuilder;

our $builder = t::lib::TestBuilder->new;

our $ILLOpacUnauthenticatedRequest_value = C4::Context->preference('ILLOpacUnauthenticatedRequest');

our $ILLModule_value = C4::Context->preference('ILLModule');

SKIP: {

    eval { require Selenium::Remote::Driver; };

    skip "Selenium::Remote::Driver is needed for selenium tests.", 3 if $@;

    our $s      = t::lib::Selenium->new;

    our $driver = $s->driver;

    subtest 'unauthenticated ill request' => sub {

        plan tests => 2;

        subtest 'ILLOpacUnauthenticatedRequest enabled' => sub {

            plan tests => 4;

            C4::Context->set_preference( 'ILLOpacUnauthenticatedRequest', 1 );

            C4::Context->set_preference( 'ILLModule', 1 );

            $driver->get( $s->opac_base_url . "opac-search.pl?q=music" );

            like(

                $driver->get_title, qr(Results of search for 'music'),

                'Correctly in search results page'

            );

            is(

                $driver->find_element('//div[@class="suggestion"]/ul/li')->get_text,

                'Make an Interlibrary loan request',

                'Placing an ILL request through the OPAC is allowed',

            );

            # Clicking on the search results page link works

            $driver->find_element('//div[@class="suggestion"]/ul/li/a')->click;

            is(

                $driver->find_element('(//nav[@id="breadcrumbs"]/ol/li)[last()]')->get_text,

                'New interlibrary loan request',

                'Correctly on the create new request OPAC page'

            );

            # Visiting the create request page directly works

            $driver->get( $s->opac_base_url . "opac-illrequests.pl?op=create" );

            is(

                $driver->find_element('(//nav[@id="breadcrumbs"]/ol/li)[last()]')->get_text,

                'New interlibrary loan request',

                'Correctly on the create new request OPAC page'

            );

        };

        subtest 'ILLOpacUnauthenticatedRequest disabled' => sub {

            plan tests => 3;

            C4::Context->set_preference( 'ILLOpacUnauthenticatedRequest', 0 );

            C4::Context->set_preference( 'ILLModule', 1 );

            $driver->get( $s->opac_base_url . "opac-search.pl?q=music" );

            like(

                $driver->get_title, qr(Results of search for 'music'),

                'Correctly in search results page'

            );

            my $link_exists =

                $driver->find_elements( '//div[@class="suggestion"]/ul/li' );

            is(

                scalar @{$link_exists},

                0,

                'Search page - Place ILL request link should be absent. '

            );

            # Visiting the create request page directly does not work

            $driver->get( $s->opac_base_url . "opac-illrequests.pl?op=create" );

            is(

                $driver->find_element('(//nav[@id="breadcrumbs"]/ol/li)[last()]')->get_text,

                'Log in to your account',

                'Correctly on the log in page'

            );

        };

    };

    $driver->quit();

}

END {

    C4::Context->set_preference( 'ILLOpacUnauthenticatedRequest', $ILLOpacUnauthenticatedRequest_value );

    C4::Context->set_preference( 'ILLModule', $ILLModule_value );

}

package Koha::Plugin::ILL::TestPlugin;

use Modern::Perl;

use base            qw(Koha::Plugins::Base);

use Koha::DateUtils qw( dt_from_string );

use File::Basename qw( dirname );

use C4::Installer;

use Cwd            qw(abs_path);

use CGI;

use JSON qw( encode_json decode_json );

use JSON           qw( to_json from_json );

use File::Basename qw( dirname );

use Koha::Libraries;

use Koha::Patrons;

our $VERSION = "2.0.4";

our $metadata = {

    name            => 'TestPlugin',

    author          => 'PTFS-Europe',

    date_authored   => '2023-10-30',

    date_updated    => '2024-03-28',

    minimum_version => '24.05.00.000',

    maximum_version => undef,

    version         => $VERSION,

    description     => 'This plugin is an ILL backend plugin example'

};

sub new {

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

    my $backend = {

        _logger => $params->{logger},

        _config => $params->{config},

        _plugin => $self,

    };

    bless $backend, $self;

    return $backend;

}

sub capabilities {

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

    my $capabilities = {

        opac_unauthenticated_ill_requests => sub { return 0; }

    };

    return $capabilities->{$name};

}

sub new_ill_backend {

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

    require Koha::Plugin::ILL::TestPlugin;

    return Koha::Plugin::ILL::TestPlugin->new($params);

}