@@ -, +, @@ --- t/Koha_ExternalContent_RecordedBooks.t | 42 ---------------------------------- 1 file changed, 42 deletions(-) delete mode 100755 t/Koha_ExternalContent_RecordedBooks.t --- a/t/Koha_ExternalContent_RecordedBooks.t +++ a/t/Koha_ExternalContent_RecordedBooks.t @@ -1,42 +0,0 @@ -#!/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") - } -} --