+++ /dev/null
-#!/usr/bin/env perl
-
-use Modern::Perl;
-
-use t::lib::Mocks;
-use Test::More;
-use Test::MockModule;
-
-use Module::Load::Conditional qw( can_load );
-
-plan tests => 3;
-
-SKIP: {
- skip "cannot find WebService::ILS::RecordedBooks::Partner", 3
- unless can_load( modules => { 'WebService::ILS::RecordedBooks::Patron' => undef } );
-
- use_ok('Koha::ExternalContent::RecordedBooks');
-
- t::lib::Mocks::mock_preference('SessionStorage','tmp');
-
- t::lib::Mocks::mock_preference('RecordedBooksLibraryID', 'DUMMY');
- t::lib::Mocks::mock_preference('RecordedBooksClientSecret', 'DUMMY');
- t::lib::Mocks::mock_preference('RecordedBooksDomain', 'DUMMY');
-
- my $client = Koha::ExternalContent::RecordedBooks->new();
- local $@;
- eval { $client->search({query => "art"}) };
-
- ok($@ =~ /This endpoint can be called by authorized trusted app or trusted partner only/, "Invalid RecordedBooks partner credentials");
-
- SKIP: {
- skip "no RecordedBooks partner credentials", 1 unless $ENV{RECORDEDBOOKS_TEST_LIBRARY_ID};
-
- t::lib::Mocks::mock_preference('RecordedBooksLibraryID', $ENV{RECORDEDBOOKS_TEST_LIBRARY_ID});
- t::lib::Mocks::mock_preference('RecordedBooksClientSecret', $ENV{RECORDEDBOOKS_TEST_CLIENT_SECRET});
- t::lib::Mocks::mock_preference('RecordedBooksDomain', $ENV{RECORDEDBOOKS_TEST_DOMAIN});
-
- $client = Koha::ExternalContent::RecordedBooks->new();
- my $res = $client->search({query => "art"});
- ok($res->{items}, "search")
- }
-}