t/db_dependent/Overdues.t

   1 #!/usr/bin/perl;
   2
   3 use Modern::Perl;
   4 use Test::More tests => 16;
   5
   6 use C4::Context;
   7 use C4::Branch;
   8 use_ok('C4::Overdues');
   9 can_ok('C4::Overdues', 'GetOverdueMessageTransportTypes');
  10 can_ok('C4::Overdues', 'GetBranchcodesWithOverdueRules');
  11
  12 my $dbh = C4::Context->dbh;
  13 $dbh->{AutoCommit} = 0;
  14 $dbh->{RaiseError} = 1;
  15
  16 $dbh->do(q|DELETE FROM letter|);
  17 $dbh->do(q|DELETE FROM message_queue|);
  18 $dbh->do(q|DELETE FROM message_transport_types|);
  19 $dbh->do(q|DELETE FROM overduerules|);
  20 $dbh->do(q|DELETE FROM overduerules_transport_types|);
  21
  22 $dbh->do(q|
  23     INSERT INTO message_transport_types( message_transport_type ) VALUES ('email'), ('phone'), ('print'), ('sms')
  24 |);
  25
  26 $dbh->do(q|
  27     INSERT INTO overduerules ( overduerules_id, branchcode, categorycode ) VALUES
  28     (1, 'CPL', 'PT'),
  29     (2, 'CPL', 'YA'),
  30     (3, '', 'PT'),
  31     (4, '', 'YA')
  32 |);
  33
  34 $dbh->do(q|INSERT INTO overduerules_transport_types (overduerules_id, letternumber, message_transport_type) VALUES
  35     (1, 1, 'email'),
  36     (1, 2, 'sms'),
  37     (1, 3, 'email'),
  38     (2, 3, 'print'),
  39     (3, 1, 'email'),
  40     (3, 2, 'email'),
  41     (3, 2, 'sms'),
  42     (3, 3, 'sms'),
  43     (3, 3, 'email'),
  44     (3, 3, 'print'),
  45     (4, 2, 'sms')
  46 |);
  47
  48 my $mtts;
  49
  50 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT');
  51 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber given' );
  52
  53 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', undef, 1);
  54 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no categorycode given' );
  55
  56 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL');
  57 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber and categorycode given' );
  58
  59 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 1);
  60 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (CPL)' );
  61
  62 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 2);
  63 is_deeply( $mtts, ['sms'], 'GetOverdueMessageTransportTypes: second overdue is by sms for PT (CPL)' );
  64
  65 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 3);
  66 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: third overdue is by email for PT (CPL)' );
  67
  68 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 1);
  69 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (default)' );
  70
  71 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 2);
  72 is_deeply( $mtts, ['email', 'sms'], 'GetOverdueMessageTransportTypes: second overdue is by email and sms for PT (default)' );
  73
  74 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 3);
  75 is_deeply( $mtts, ['print', 'sms', 'email'], 'GetOverdueMessageTransportTypes: third overdue is by print, sms and email for PT (default). With print in first.' );
  76
  77 # Test GetBranchcodesWithOverdueRules
  78 $dbh->do(q|DELETE FROM overduerules|);
  79 $dbh->do(q|
  80     INSERT INTO overduerules
  81         ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
  82         VALUES
  83         ( '', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
  84 |);
  85
  86 my $all_branches = C4::Branch::GetBranches;
  87 my @branchcodes = keys %$all_branches;
  88
  89 my @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
  90 is_deeply( [ sort @overdue_branches ], [ sort @branchcodes ], 'If a default rule exists, all branches should be returned' );
  91
  92 $dbh->do(q|
  93     INSERT INTO overduerules
  94         ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
  95         VALUES
  96         ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
  97 |);
  98
  99 @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
 100 is_deeply( [ sort @overdue_branches ], [ sort @branchcodes ], 'If a default rule exists and a specific rule exists, all branches should be returned' );
 101
 102 $dbh->do(q|DELETE FROM overduerules|);
 103 $dbh->do(q|
 104     INSERT INTO overduerules
 105         ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
 106         VALUES
 107         ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
 108 |);
 109
 110 @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
 111 is_deeply( \@overdue_branches, ['CPL'] , 'If only a specific rule exist, only 1 branch should be returned' );
 112
 113 $dbh->do(q|DELETE FROM overduerules|);
 114 $dbh->do(q|
 115     INSERT INTO overduerules
 116         ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
 117         VALUES
 118         ( 'CPL', '', 1, 'LETTER_CODE1_CPL', 1, 5, 'LETTER_CODE2_CPL', 1, 10, 'LETTER_CODE3_CPL', 1 ),
 119         ( 'MPL', '', 1, 'LETTER_CODE1_MPL', 1, 5, 'LETTER_CODE2_MPL', 1, 10, 'LETTER_CODE3_MPL', 1 )
 120 |);
 121
 122 @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
 123 is_deeply( \@overdue_branches, ['CPL', 'MPL'] , 'If only 2 specific rules exist, 2 branches should be returned' );