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

   1 BEGIN;
   2
   3 SELECT * FROM actor.usr_merge(58,4,TRUE,TRUE,TRUE);
   4
   5 SELECT plan(3);
   6
   7 SELECT is(
   8     (SELECT id FROM actor.usr WHERE family_name ~* 'PURGED' AND id = 58)::INTEGER,
   9     58::INTEGER,
  10     'actor.usr values updated by usr delete/obliterate'
  11 );
  12
  13 SELECT is_empty(
  14     'SELECT id FROM actor.usr_address WHERE usr = 58',
  15     'actor.usr_address entry is correctly deleted'
  16 );
  17
  18 SELECT is_empty(
  19     'SELECT id FROM actor.card WHERE usr = 58',
  20     'actor.card entry is correctly deleted'
  21 );
  22
  23 -- Finish the tests and clean up.
  24 SELECT * FROM finish();
  25 ROLLBACK;