Open-ILS/src/sql/Pg/t/regress/lp1312945_auth_linking.pg

   1 BEGIN;
   2
   3 SELECT plan(1);
   4
   5 INSERT INTO authority.record_entry (id, marc, last_xact_id)
   6 VALUES (999999100, $$<record    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xsi:schemaLocation="http://www.loc.gov/MARC21
   7 /slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"    xmlns="http://www.loc.gov/MARC21/slim">
   8     <leader>01601cz  a2200289n  4500</leader>
   9     <datafield tag="100" ind1="1" ind2=" ">
  10         <subfield code="a">Doe, Jane</subfield>
  11     </datafield>
  12     <datafield tag="500" ind1="1" ind2=" ">
  13         <subfield code="w">nnnc</subfield>
  14         <subfield code="a">Alias, Annie</subfield>
  15         <subfield code="0">999999101</subfield>
  16     </datafield>
  17     <datafield tag="500" ind1="1" ind2=" ">
  18         <subfield code="w">nnnc</subfield>
  19         <subfield code="a">Pen-name, Penny</subfield>
  20         <subfield code="0">999999102</subfield>
  21     </datafield>
  22 </record>$$, 'test'),
  23 (999999101, $$<record    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xsi:schemaLocation="http://www.loc.gov/MARC21
  24 /slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"    xmlns="http://www.loc.gov/MARC21/slim">
  25     <leader>01601cz  a2200289n  4500</leader>
  26     <datafield tag="100" ind1="1" ind2=" ">
  27         <subfield code="a">Alias, Annie</subfield>
  28     </datafield>
  29     <datafield tag="500" ind1="1" ind2=" ">
  30         <subfield code="w">nnnc</subfield>
  31         <subfield code="a">Doe, Jane</subfield>
  32         <subfield code="0">999999100</subfield>
  33     </datafield>
  34 </record>$$, 'test'),
  35 (999999102, $$<record    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xsi:schemaLocation="http://www.loc.gov/MARC21
  36 /slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"    xmlns="http://www.loc.gov/MARC21/slim">
  37     <leader>01601cz  a2200289n  4500</leader>
  38     <datafield tag="100" ind1="1" ind2=" ">
  39         <subfield code="a">Pen-name, Penny</subfield>
  40     </datafield>
  41     <datafield tag="500" ind1="1" ind2=" ">
  42         <subfield code="w">nnnc</subfield>
  43         <subfield code="a">Doe, Jane</subfield>
  44         <subfield code="0">999999100</subfield>
  45     </datafield>
  46 </record>$$, 'test');
  47
  48 SELECT is(
  49     ARRAY(
  50         SELECT (authority.calculate_authority_linking(id, 1, marc::XML)).target
  51         FROM authority.record_entry
  52         WHERE id = 999999100
  53         ORDER BY 1
  54     ),
  55     ARRAY[ 999999101::BIGINT, 999999102::BIGINT ],
  56     'retrieve all of the links to other authority records'
  57 );
  58
  59 ROLLBACK;