Bug 9259: Use is instead of is_deeply
[koha.git] / 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' );