t/db_dependent/Linker_FirstMatch.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 3;
   9 use C4::Context;
  10 use C4::Heading;
  11 use MARC::Record;
  12 use MARC::Field;
  13 use C4::Linker::FirstMatch;
  14
  15
  16 BEGIN {
  17         use_ok('C4::Linker');
  18 }
  19 my $dbh = C4::Context->dbh;
  20
  21 my $query = "SELECT authid, marc FROM auth_header LIMIT 1;";
  22 my $sth = $dbh->prepare($query);
  23 $sth->execute();
  24 my ($authid, $marc) = $sth->fetchrow_array();
  25 SKIP: {
  26     skip "No authorities", 2 unless defined $authid;
  27     my $linker = C4::Linker::FirstMatch->new();
  28     my $auth = MARC::Record->new_from_usmarc($marc);
  29     my $fieldmatch;
  30     if (C4::Context->preference('MARCFlavour') eq 'UNIMARC') {
  31         $fieldmatch = '2..';
  32     } else {
  33         $fieldmatch = '1..';
  34     }
  35     my $bibfield = $auth->field($fieldmatch);
  36     my $tag = $bibfield->tag();
  37     $tag =~ s/^./6/;
  38     $bibfield->update(tag => $tag);
  39     my $heading;
  40     ok(defined ($heading = C4::Heading->new_from_bib_field($bibfield, '')), "Creating heading from bib field");
  41
  42     # If Zebra is not running, or authorities have not been indexed, test 3
  43     # will fail. Skip it if we are unable to retrieve a list of headings from
  44     # Zebra.
  45     my @authids = $heading->authorities(1);
  46     skip "Unable to search Zebra", 1 unless $#authids > 0;
  47
  48     my $authmatch;
  49     my $fuzzy;
  50     ($authmatch, $fuzzy) = $linker->get_link($heading);
  51     is($authmatch, $authid, "Matched existing heading");
  52 }