Lines 8-14
use Test::MockModule;
Link Here
|
8 |
|
8 |
|
9 |
use Module::Load::Conditional qw( can_load ); |
9 |
use Module::Load::Conditional qw( can_load ); |
10 |
|
10 |
|
11 |
plan tests => 5; |
11 |
plan tests => 3; |
12 |
|
12 |
|
13 |
SKIP: { |
13 |
SKIP: { |
14 |
skip "cannot find WebService::ILS::RecordedBooks::Partner", 5 |
14 |
skip "cannot find WebService::ILS::RecordedBooks::Partner", 5 |
Lines 25-31
SKIP: {
Link Here
|
25 |
my $client = Koha::ExternalContent::RecordedBooks->new(); |
25 |
my $client = Koha::ExternalContent::RecordedBooks->new(); |
26 |
local $@; |
26 |
local $@; |
27 |
eval { $client->search({query => "art"}) }; |
27 |
eval { $client->search({query => "art"}) }; |
28 |
ok($@ =~ /not authorized/, "Invalid RecordedBooks partner credentials"); |
28 |
|
|
|
29 |
ok($@ =~ /This endpoint can be called by authorized trusted app or trusted partner only/, "Invalid RecordedBooks partner credentials"); |
29 |
|
30 |
|
30 |
SKIP: { |
31 |
SKIP: { |
31 |
skip "no RecordedBooks partner credentials", 1 unless $ENV{RECORDEDBOOKS_TEST_LIBRARY_ID}; |
32 |
skip "no RecordedBooks partner credentials", 1 unless $ENV{RECORDEDBOOKS_TEST_LIBRARY_ID}; |
32 |
- |
|
|