use C4::XISBN;
use C4::Context;
use C4::Search;
+use t::lib::Mocks;
use Test::MockModule;
BEGIN {
my $search_module = new Test::MockModule('C4::Search');
$search_module->mock('SimpleSearch', \&Mock_SimpleSearch );
-
+my $errors;
my $context = C4::Context->new;
my ( $biblionumber_tag, $biblionumber_subfield ) =
is( $trial->{biblionumber},
$biblionumber1, "Gets biblionumber like the previous test." );
-$context->set_preference( 'ThingISBN', 1 );
-$context->set_preference( 'XISBN', 0 );
-my $results_thingisbn = C4::XISBN::get_xisbns($isbn1);
-is( $results_thingisbn->[0]->{biblionumber},
- $biblionumber3,
- "Gets correct biblionumber from a book with a similar isbn using ThingISBN." );
-
-$context->set_preference( 'ThingISBN', 0 );
-$context->set_preference( 'XISBN', 1 );
-my $results_xisbn = C4::XISBN::get_xisbns($isbn1);
-is( $results_xisbn->[0]->{biblionumber},
- $biblionumber3,
- "Gets correct biblionumber from a book with a similar isbn using XISBN." );
+## Test ThingISBN
+t::lib::Mocks::mock_preference( 'ThingISBN', 1 );
+t::lib::Mocks::mock_preference( 'XISBN', 0 );
+
+my $results_thingisbn;
+eval { $results_thingisbn = C4::XISBN::get_xisbns($isbn1); };
+SKIP: {
+ skip "Problem retrieving ThingISBN", 1
+ unless $@ eq '';
+ is( $results_thingisbn->[0]->{biblionumber},
+ $biblionumber3,
+ "Gets correct biblionumber from a book with a similar isbn using ThingISBN." );
+}
+
+## Test XISBN
+t::lib::Mocks::mock_preference( 'ThingISBN', 0 );
+t::lib::Mocks::mock_preference( 'XISBN', 1 );
+
+my $results_xisbn;
+eval { ($results_xisbn, $errors) = C4::XISBN::get_xisbns($isbn1); };
+SKIP: {
+ skip "Problem retrieving XISBN (" . $errors->{xisbn} . ")", 1
+ if $errors->{xisbn};
+ is( $results_xisbn->[0]->{biblionumber},
+ $biblionumber3,
+ "Gets correct biblionumber from a book with a similar isbn using XISBN." );
+}
$dbh->rollback;