Open-ILS/src/sql/Pg/t/lp1506534_z3950_attr_check.pg

   1 BEGIN;
   2 SELECT plan(5);
   3
   4 -- Is the proper constraint present?
   5 SELECT is((SELECT COUNT(*) FROM pg_constraint WHERE conname='valid_z3950_attr_type' AND contype='c')::INTEGER, 0::INTEGER, 'CHECK constraint not present');
   6 SELECT has_trigger('config', 'z3950_index_field_map', 'valid_z3950_attr_type', 'CONSTRAINT TRIGGER present on config.z3950_index_field_map');
   7
   8 -- Does it work properly?
   9 SET CONSTRAINTS config.valid_z3950_attr_type IMMEDIATE;
  10 PREPARE busted_insert AS INSERT INTO config.z3950_index_field_map (label, metabib_field, z3950_attr_type) VALUES ('Title', 5, 'sadface');
  11 PREPARE ok_type_insert AS INSERT INTO config.z3950_index_field_map (label, metabib_field, z3950_attr_type) VALUES ('Title2', 5, 'title');
  12 PREPARE ok_attr_insert AS INSERT INTO config.z3950_index_field_map (label, metabib_field, z3950_attr) VALUES ('Title3', 5, 5);
  13
  14 SELECT throws_ok('busted_insert', 'P0001', 'sadface is not a valid Z39.50 attribute type', 'Invalid Insert Test');
  15 SELECT lives_ok('ok_type_insert', 'Valid z3950_attr_type Insert');
  16 SELECT lives_ok('ok_attr_insert', 'Valid z3950_attr Insert, z3950_attr_type is NULL');
  17
  18 -- Finish the tests and clean up.
  19 SELECT * FROM finish();
  20 ROLLBACK;
  21