Open-ILS/src/sql/Pg/t/regress/lp937789_fake_bmp_delete.sql

   1 BEGIN;
   2
   3 SELECT plan(6);
   4
   5 INSERT INTO biblio.record_entry (id, last_xact_id, marc)
   6 VALUES (999999998, 'pgtap', '<record    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"    xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"    xmlns="http://www.loc.gov/MARC21/slim">
   7   <leader>00531nam a2200157 a 4500</leader>
   8   <controlfield tag="005">20080729170300.0</controlfield>
   9   <controlfield tag="008">      t19981999enka              0 eng  </controlfield>
  10   <datafield tag="245" ind1="1" ind2="4">
  11     <subfield code="a">test-value</subfield>
  12   </datafield>
  13 </record>');
  14
  15 INSERT INTO biblio.monograph_part(record, label) VALUES (999999998, 'Part 1');
  16
  17 SELECT is(
  18     label,
  19     'Part 1',
  20     'LP#937789: new monograph parts start out active'
  21 )
  22 FROM biblio.monograph_part
  23 WHERE record = 999999998
  24 AND NOT deleted;
  25
  26 SELECT is(
  27     (XPATH(
  28         '//ns:monograph_parts/ns:monograph_part/@label',
  29         unapi.holdings_xml(999999998, 1, 'CONS', 0, '{bmp}'),
  30         '{{ns,http://open-ils.org/spec/holdings/v1}}'
  31     ))[1]::TEXT,
  32     'Part 1',
  33     'LP#937789: unapi.holdings_xml returns monograph part'
  34 );
  35
  36 SELECT is(
  37     (XPATH(
  38         '/ns:monograph_part/@label',
  39         unapi.bmp(CURRVAL('biblio.monograph_part_id_seq'), '', '', '{}', 'CONS'),
  40         '{{ns,http://open-ils.org/spec/holdings/v1}}'
  41     ))[1]::TEXT,
  42     'Part 1',
  43     'LP#937789: unapi.bmp returns monograph part'
  44 );
  45
  46 DELETE FROM biblio.monograph_part WHERE record = 999999998;
  47
  48 SELECT is(
  49     deleted,
  50     TRUE,
  51     'LP#937789: deleting monograph part sets deleted flag'
  52 )
  53 FROM biblio.monograph_part
  54 WHERE record = 999999998
  55 AND label = 'Part 1';
  56
  57 SELECT is(
  58     (XPATH(
  59         '//ns:monograph_parts/ns:monograph_part/@label',
  60         unapi.holdings_xml(999999998, 1, 'CONS', 0, '{bmp}'),
  61         '{{ns,http://open-ils.org/spec/holdings/v1}}'
  62     ))[1]::TEXT,
  63     NULL,
  64     'LP#937789: unapi.holdings_xml does not return deleted monograph part'
  65 );
  66
  67 SELECT is(
  68     unapi.bmp(CURRVAL('biblio.monograph_part_id_seq'), '', '', '{}', 'CONS')::TEXT,
  69     NULL,
  70     'LP#937789: unapi.bmp does not return deleted monograph part'
  71 );
  72
  73 ROLLBACK;