4 use Test::More tests => 16;
9 use_ok('C4::Overdues');
10 can_ok('C4::Overdues', 'GetOverdueMessageTransportTypes');
11 can_ok('C4::Overdues', 'GetBranchcodesWithOverdueRules');
13 my $schema = Koha::Database->new->schema;
14 $schema->storage->txn_begin;
15 my $dbh = C4::Context->dbh;
17 $dbh->do(q|DELETE FROM letter|);
18 $dbh->do(q|DELETE FROM message_queue|);
19 $dbh->do(q|DELETE FROM message_transport_types|);
20 $dbh->do(q|DELETE FROM overduerules|);
21 $dbh->do(q|DELETE FROM overduerules_transport_types|);
24 INSERT INTO message_transport_types( message_transport_type ) VALUES ('email'), ('phone'), ('print'), ('sms')
28 INSERT INTO overduerules ( overduerules_id, branchcode, categorycode ) VALUES
35 $dbh->do(q|INSERT INTO overduerules_transport_types (overduerules_id, letternumber, message_transport_type) VALUES
51 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT');
52 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber given' );
54 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', undef, 1);
55 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no categorycode given' );
57 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL');
58 is( $mtts, undef, 'GetOverdueMessageTransportTypes: returns undef if no letternumber and categorycode given' );
60 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 1);
61 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (CPL)' );
63 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 2);
64 is_deeply( $mtts, ['sms'], 'GetOverdueMessageTransportTypes: second overdue is by sms for PT (CPL)' );
66 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('CPL', 'PT', 3);
67 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: third overdue is by email for PT (CPL)' );
69 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 1);
70 is_deeply( $mtts, ['email'], 'GetOverdueMessageTransportTypes: first overdue is by email for PT (default)' );
72 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 2);
73 is_deeply( $mtts, ['email', 'sms'], 'GetOverdueMessageTransportTypes: second overdue is by email and sms for PT (default)' );
75 $mtts = C4::Overdues::GetOverdueMessageTransportTypes('', 'PT', 3);
76 is_deeply( $mtts, ['print', 'sms', 'email'], 'GetOverdueMessageTransportTypes: third overdue is by print, sms and email for PT (default). With print in first.' );
78 # Test GetBranchcodesWithOverdueRules
79 $dbh->do(q|DELETE FROM overduerules|);
81 INSERT INTO overduerules
82 ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
84 ( '', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
87 my @branchcodes = map { $_->branchcode } Koha::Libraries->search;
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' );
93 INSERT INTO overduerules
94 ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
96 ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
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' );
102 $dbh->do(q|DELETE FROM overduerules|);
104 INSERT INTO overduerules
105 ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
107 ( 'CPL', '', 1, 'LETTER_CODE1', 1, 5, 'LETTER_CODE2', 1, 10, 'LETTER_CODE3', 1 )
110 @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
111 is_deeply( \@overdue_branches, ['CPL'] , 'If only a specific rule exist, only 1 branch should be returned' );
113 $dbh->do(q|DELETE FROM overduerules|);
115 INSERT INTO overduerules
116 ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
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 )
122 @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
123 is_deeply( \@overdue_branches, ['CPL', 'MPL'] , 'If only 2 specific rules exist, 2 branches should be returned' );