3 # This Koha test module is a stub!
4 # Add more tests here!!!
8 use Test::More tests => 4;
21 my $dbh = C4::Context->dbh;
22 $dbh->{RaiseError} = 1;
23 $dbh->{AutoCommit} = 0;
25 my $search_module = new Test::MockModule('C4::Search');
27 $search_module->mock('SimpleSearch', \&Mock_SimpleSearch );
29 my $context = C4::Context->new;
31 my ( $biblionumber_tag, $biblionumber_subfield ) =
32 GetMarcFromKohaField( 'biblio.biblionumber', '' );
33 my ( $isbn_tag, $isbn_subfield ) =
34 GetMarcFromKohaField( 'biblioitems.isbn', '' );
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';
44 my $biblionumber1 = _add_biblio_with_isbn($isbn1);
45 my $biblionumber2 = _add_biblio_with_isbn($isbn2);
46 my $biblionumber3 = _add_biblio_with_isbn($isbn3);
48 my $trial = C4::XISBN::_get_biblio_from_xisbn($isbn1);
49 is( $trial->{biblionumber},
50 $biblionumber1, "Gets biblionumber like the previous test." );
53 t::lib::Mocks::mock_preference( 'ThingISBN', 1 );
54 t::lib::Mocks::mock_preference( 'XISBN', 0 );
56 my $results_thingisbn;
57 eval { $results_thingisbn = C4::XISBN::get_xisbns($isbn1); };
59 skip "Problem retrieving ThingISBN", 1
61 is( $results_thingisbn->[0]->{biblionumber},
63 "Gets correct biblionumber from a book with a similar isbn using ThingISBN." );
67 t::lib::Mocks::mock_preference( 'ThingISBN', 0 );
68 t::lib::Mocks::mock_preference( 'XISBN', 1 );
71 eval { ($results_xisbn, $errors) = C4::XISBN::get_xisbns($isbn1); };
73 skip "Problem retrieving XISBN (" . $errors->{xisbn} . ")", 1
75 is( $results_xisbn->[0]->{biblionumber},
77 "Gets correct biblionumber from a book with a similar isbn using XISBN." );
84 # Add new biblio with isbn and return biblionumber
85 sub _add_biblio_with_isbn {
88 my $marc_record = MARC::Record->new;
89 my $field = MARC::Field->new( $isbn_tag, '', '', $isbn_subfield => $isbn );
90 $marc_record->append_fields($field);
91 my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' );
97 # C4::Search::SimpleSearch
98 sub Mock_SimpleSearch {
103 my $ret_biblionumber;
104 if ( $query =~ /$isbn1/ ) {
105 $ret_biblionumber = $biblionumber1;
107 elsif ( $query =~ /$isbn2/ ) {
108 $ret_biblionumber = $biblionumber2;
110 elsif ( $query =~ /$isbn3/ ) {
111 $ret_biblionumber = $biblionumber3;
114 my $record = MARC::Record->new;
115 $record->leader(' ngm a22 7a 4500');
116 my $biblionumber_field;
117 if ( $biblionumber_tag < 10 ) {
118 $biblionumber_field =
119 MARC::Field->new( $biblionumber_tag, $ret_biblionumber );
122 $biblionumber_field = MARC::Field->new( $biblionumber_tag, '', '',
123 $biblionumber_subfield => $ret_biblionumber );
125 $record->append_fields($biblionumber_field);
127 my $indexing_mode = C4::Context->config('zebra_bib_index_mode') // 'dom';
128 push @results, ( $indexing_mode eq 'dom' )
130 : $record->as_usmarc() ;
132 return ( undef, \@results, 1 );