t/db_dependent/Overdues.t

   1 #!/usr/bin/perl;
   2
   3 use Modern::Perl;
   4 use Test::More;# tests => 3;
   5
   6 use C4::Context;
   7 use_ok('C4::Overdues');
   8 can_ok('C4::Overdues', 'GetOverdueMessageTransportTypes');
   9
  10 my $dbh = C4::Context->dbh;
  11 $dbh->{AutoCommit} = 0;
  12 $dbh->{RaiseError} = 1;
  13
  14 $dbh->do(q|DELETE FROM letter|);
  15 $dbh->do(q|DELETE FROM message_queue|);
  16 $dbh->do(q|DELETE FROM message_transport_types|);
  17 $dbh->do(q|DELETE FROM overduerules|);
  18 $dbh->do(q|DELETE FROM overduerules_transport_types|);
  19
  20 $dbh->do(q|
  21     INSERT INTO message_transport_types( message_transport_type ) VALUES ('email'), ('phone'), ('print'), ('sms')
  22 |);
  23
  24 $dbh->do(q|
  25     INSERT INTO overduerules ( branchcode, categorycode ) VALUES
  26     ('CPL', 'PT'),
  27     ('CPL', 'YA'),
  28     ('', 'PT'),
  29     ('', 'YA')
  30 |);
  31
  32 $dbh->do(q|
  33     INSERT INTO overduerules_transport_types( branchcode, categorycode, letternumber, message_transport_type ) VALUES
  34     ('CPL', 'PT', 1, 'email'),
  35     ('CPL', 'PT', 2, 'sms'),
  36     ('CPL', 'PT', 3, 'email'),
  37     ('CPL', 'YA', 3, 'print'),
  38     ('', 'PT', 1, 'email'),
  39     ('', 'PT', 2, 'email'),
  40     ('', 'PT', 2, 'sms'),
  41     ('', 'PT', 3, 'print'),
  42     ('', 'YA', 2, 'sms')
  43 |);
  44
  45 my $mtts;
  46
  47 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT');
  48 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber given' );
  49
  50 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', undef, 1);
  51 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no categorycode given' );
  52
  53 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL');
  54 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber and categorycode given' );
  55
  56 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 1);
  57 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (CPL)' );
  58
  59 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 2);
  60 is_deeply( $mtts, ['sms'], 'GetOverdueMessageTransportTypes: second overdue is by sms for PT (CPL)' );
  61
  62 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 3);
  63 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: third overdue is by email for PT (CPL)' );
  64
  65 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 1);
  66 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (default)' );
  67
  68 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 2);
  69 is_deeply( $mtts, ['email', 'sms'], 'GetOverdueMessageTransportTypes: second overdue is by email and sms for PT (default)' );
  70
  71 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 3);
  72 is_deeply( $mtts, ['print'], 'GetOverdueMessageTransportTypes: third overdue is by print for PT (default)' );
  73
  74
  75 done_testing;