View | Details | Raw Unified | Return to bug 36128
Collapse All | Expand All

(-)a/t/db_dependent/Overdues.t (-3 / +7 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl;
1
#!/usr/bin/perl;
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 17;
4
use Test::More tests => 18;
5
use Test::Warn;
5
use Test::Warn;
6
6
7
use C4::Context;
7
use C4::Context;
Lines 84-89 is_deeply( $mtts, ['print', 'sms', 'email'], 'GetOverdueMessageTransportTypes: t Link Here
84
84
85
# Test GetBranchcodesWithOverdueRules
85
# Test GetBranchcodesWithOverdueRules
86
$dbh->do(q|DELETE FROM overduerules|);
86
$dbh->do(q|DELETE FROM overduerules|);
87
88
my @overdue_branches;
89
warnings_are { @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules(); } [],
90
    "No warnings thrown when no overdue rules exist";
91
87
$dbh->do(q|
92
$dbh->do(q|
88
    INSERT INTO overduerules
93
    INSERT INTO overduerules
89
        ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
94
        ( branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3 )
Lines 93-99 $dbh->do(q| Link Here
93
98
94
my @branchcodes = map { $_->branchcode } Koha::Libraries->search->as_list;
99
my @branchcodes = map { $_->branchcode } Koha::Libraries->search->as_list;
95
100
96
my @overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
101
@overdue_branches = C4::Overdues::GetBranchcodesWithOverdueRules();
97
is_deeply( [ sort @overdue_branches ], [ sort @branchcodes ], 'If a default rule exists, all branches should be returned' );
102
is_deeply( [ sort @overdue_branches ], [ sort @branchcodes ], 'If a default rule exists, all branches should be returned' );
98
103
99
$dbh->do(q|
104
$dbh->do(q|
100
- 

Return to bug 36128