t/db_dependent/XISBN.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use Modern::Perl;
   7
   8 use Test::More tests => 3;
   9 use MARC::Record;
  10 use C4::Biblio;
  11 use C4::XISBN;
  12 use C4::Context;
  13 use C4::Search;
  14 use t::lib::Mocks;
  15 use Test::MockModule;
  16
  17 BEGIN {
  18     use_ok('C4::XISBN');
  19 }
  20
  21 my $dbh = C4::Context->dbh;
  22 $dbh->{RaiseError} = 1;
  23 $dbh->{AutoCommit} = 0;
  24
  25 my $search_module = new Test::MockModule('C4::Search');
  26
  27 $search_module->mock('SimpleSearch', \&Mock_SimpleSearch );
  28 my $errors;
  29 my $context = C4::Context->new;
  30
  31 my ( $biblionumber_tag, $biblionumber_subfield ) =
  32   GetMarcFromKohaField( 'biblio.biblionumber', '' );
  33 my ( $isbn_tag, $isbn_subfield ) =
  34   GetMarcFromKohaField( 'biblioitems.isbn', '' );
  35
  36 # Harry Potter and the Sorcerer's Stone, 1st American ed. 1997
  37 my $isbn1 = '0590353403';
  38 # ThingISBN match : Silent Wing, First Edition 1998
  39 my $isbn2 = '0684843897';
  40 # XISBN match : Harry Potter and the Sorcerer's Stone,
  41 # 1. Scholastic mass market paperback printing1.
  42 my $isbn3 = '043936213X';
  43
  44 my $biblionumber1 = _add_biblio_with_isbn($isbn1);
  45 my $biblionumber2 = _add_biblio_with_isbn($isbn2);
  46 my $biblionumber3 = _add_biblio_with_isbn($isbn3);
  47
  48 my $trial = C4::XISBN::_get_biblio_from_xisbn($isbn1);
  49 is( $trial->{biblionumber},
  50     $biblionumber1, "Gets biblionumber like the previous test." );
  51
  52 ## Test ThingISBN
  53 t::lib::Mocks::mock_preference( 'ThingISBN', 1 );
  54
  55 my $results_thingisbn;
  56 eval { $results_thingisbn = C4::XISBN::get_xisbns($isbn1); };
  57 SKIP: {
  58     skip "Problem retrieving ThingISBN", 1
  59         unless $@ eq '';
  60     is( $results_thingisbn->[0]->{biblionumber},
  61         $biblionumber3,
  62         "Gets correct biblionumber from a book with a similar isbn using ThingISBN." );
  63 }
  64
  65 $dbh->rollback;
  66
  67 # Util subs
  68
  69 # Add new biblio with isbn and return biblionumber
  70 sub _add_biblio_with_isbn {
  71     my $isbn = shift;
  72
  73     my $marc_record = MARC::Record->new;
  74     my $field = MARC::Field->new( $isbn_tag, '', '', $isbn_subfield => $isbn );
  75     $marc_record->append_fields($field);
  76     my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
  77     return $biblionumber;
  78 }
  79
  80 # Mocked subs
  81
  82 # C4::Search::SimpleSearch
  83 sub Mock_SimpleSearch {
  84     my $query = shift;
  85     my @results;
  86
  87     $query =~ s/-//g;
  88     my $ret_biblionumber;
  89     if ( $query =~ /$isbn1/ ) {
  90         $ret_biblionumber = $biblionumber1;
  91     }
  92     elsif ( $query =~ /$isbn2/ ) {
  93         $ret_biblionumber = $biblionumber2;
  94     }
  95     elsif ( $query =~ /$isbn3/ ) {
  96         $ret_biblionumber = $biblionumber3;
  97     }
  98
  99     my $record = MARC::Record->new;
 100     $record->leader('     ngm a22     7a 4500');
 101     my $biblionumber_field;
 102     if ( $biblionumber_tag < 10 ) {
 103         $biblionumber_field =
 104           MARC::Field->new( $biblionumber_tag, $ret_biblionumber );
 105     }
 106     else {
 107         $biblionumber_field = MARC::Field->new( $biblionumber_tag, '', '',
 108             $biblionumber_subfield => $ret_biblionumber );
 109     }
 110     $record->append_fields($biblionumber_field);
 111
 112     push @results, $record->as_xml();
 113
 114     return ( undef, \@results, 1 );
 115 }