Open-ILS/src/sql/Pg/live_t/purge-user-activity.pg

   1 BEGIN;
   2
   3 SELECT plan(6);
   4
   5 \set usr_one 1
   6 \set usr_two 2
   7
   8 -- shuffle event_times for randomness.
   9 INSERT INTO actor.usr_activity (usr, etype, event_time) VALUES
  10     (:usr_one, 1, NOW() - '2 days'::INTERVAL),
  11     (:usr_one, 1, NOW() - '1 days'::INTERVAL),
  12     (:usr_one, 1, NOW()),
  13     (:usr_one, 2, NOW() - '2 days'::INTERVAL),
  14     (:usr_one, 2, NOW() - '1 days'::INTERVAL),
  15     (:usr_one, 2, NOW()),
  16     (:usr_two, 1, NOW() - '2 days'::INTERVAL),
  17     (:usr_two, 1, NOW() - '1 days'::INTERVAL),
  18     (:usr_two, 1, NOW());
  19
  20
  21 SELECT actor.purge_usr_activity_by_type(1);
  22 SELECT actor.purge_usr_activity_by_type(2);
  23
  24 SELECT is(
  25     (SELECT COUNT(*) FROM actor.usr_activity
  26         WHERE usr = :usr_one AND etype = 1),
  27     1::BIGINT,
  28     'Confirm only one event row exists'
  29 );
  30
  31 SELECT is(
  32     (SELECT DATE(event_time) FROM actor.usr_activity
  33         WHERE usr = :usr_one AND etype = 1),
  34     DATE(NOW()),
  35     'Confirm most recent event is retained'
  36 );
  37
  38 SELECT is(
  39     (SELECT COUNT(*) FROM actor.usr_activity
  40         WHERE usr = :usr_one AND etype = 2),
  41     1::BIGINT,
  42     'Confirm only one event row exists'
  43 );
  44
  45 SELECT is(
  46     (SELECT DATE(event_time) FROM actor.usr_activity
  47         WHERE usr = :usr_one AND etype = 2),
  48     DATE(NOW()),
  49     'Confirm most recent event is retained'
  50 );
  51
  52 SELECT is(
  53     (SELECT COUNT(*) FROM actor.usr_activity
  54         WHERE usr = :usr_two AND etype = 1),
  55     1::BIGINT,
  56     'Confirm only one event row exists'
  57 );
  58
  59 SELECT is(
  60     (SELECT DATE(event_time) FROM actor.usr_activity
  61         WHERE usr = :usr_two AND etype = 1),
  62     DATE(NOW()),
  63     'Confirm most recent event is retained'
  64 );
  65
  66 SELECT * FROM finish();
  67 ROLLBACK;
  68