view release on metacpan or  search on metacpan

xt/01-ark.t  view on Meta::CPAN

use Modern::Perl;
use MARC::Moose::Record;
use MARC::Moose::Field;
use MARC::Moose::Field::Control;
use MARC::Moose::Field::Std;
use MARC::Moose::Parser::Marcxml;
use C4::Context;
use Koha::Contrib::ARK;
use YAML;
use JSON;

use Test::More tests => 40;
use Test::Exit;
use Test::MockModule;


my $ark_conf = {
    ark => {
        "NMHA" => "myspecial.test.fr",
        "NAAN" => "12345",
        "ARK" => "http://{NMHA}/ark:/{NAAN}/catalog{id}",
        "koha" => {
          "id" => { "tag" => "001" },
          "ark" => { "tag" => "090", "letter" => "z" }
        }
    }
};


my $xml_chunk = <<EOS;
<record>
  <leader>01529    a2200217   4500</leader>
  <controlfield tag="001">1234</controlfield>
  <controlfield tag="005">20180505165105.0</controlfield>
  <controlfield tag="008">800108s1899    ilu           000 0 eng  </controlfield>
  <controlfield tag="009">132000601</controlfield>
  <datafield tag="020" ind1=" " ind2=" ">
    <subfield code="a">0-19-877306-4</subfield>
  </datafield>
  <datafield tag="041" ind1=" " ind2=" ">
    <subfield code="a">eng</subfield>
  </datafield>
  <datafield tag="100" ind1=" " ind2=" ">
    <subfield code="a">Burda, Michael C.</subfield>
    <subfield code="u">Economics and Political Science</subfield>
  </datafield>
  <datafield tag="245" ind1=" " ind2=" ">
    <subfield code="a">Macroeconomics:</subfield>
    <subfield code="b">a European text</subfield>
  </datafield>
  <datafield tag="260" ind1=" " ind2=" ">
    <subfield code="b">Oxford University Press,</subfield>
    <subfield code="c">1993.</subfield>
  </datafield>
  <datafield tag="300" ind1=" " ind2=" ">
    <subfield code="a">486 p. :</subfield>
    <subfield code="b">Graphs ;</subfield>
    <subfield code="c">25 cm.</subfield>
  </datafield>
  <datafield tag="690" ind1=" " ind2=" ">
    <subfield code="a">Economics</subfield>