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

(-)a/t/db_dependent/Borrower_Debarments.t (-3 / +43 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
use C4::Members;
6
use C4::Members;
7
7
8
use Test::More tests => 22;
8
use Test::More tests => 31;
9
9
10
use_ok('Koha::Borrower::Debarments');
10
use_ok('Koha::Borrower::Debarments');
11
11
Lines 86-95 is( @$debarments, 1, "GetDebarments returns 1 OVERDUES debarment after running A Link Here
86
is( $debarments->[0]->{'expiration'}, '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
86
is( $debarments->[0]->{'expiration'}, '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
87
87
88
88
89
DelUniqueDebarment({
89
my $delUniqueDebarment = DelUniqueDebarment({
90
});
91
is( $delUniqueDebarment, undef, "DelUniqueDebarment without the arguments 'borrowernumber' and 'type' returns undef" );
92
$debarments = GetDebarments({
93
    borrowernumber => $borrowernumber,
94
    type => 'OVERDUES',
95
});
96
is( @$debarments, 1, "DelUniqueDebarment without the arguments 'borrowernumber' and 'type' does not delete the debarment" );
97
98
$delUniqueDebarment = DelUniqueDebarment({
99
    borrowernumber => $borrowernumber,
100
});
101
is( $delUniqueDebarment, undef, "DelUniqueDebarment without the argument 'type' returns undef" );
102
$debarments = GetDebarments({
103
    borrowernumber => $borrowernumber,
104
    type => 'OVERDUES',
105
});
106
is( @$debarments, 1, "DelUniqueDebarment without the argument 'type' does not delete the debarment" );
107
108
$delUniqueDebarment = DelUniqueDebarment({
109
    type => 'OVERDUES'
110
});
111
is( $delUniqueDebarment, undef, "DelUniqueDebarment without the argument 'borrowernumber' returns undef" );
112
$debarments = GetDebarments({
113
    borrowernumber => $borrowernumber,
114
    type => 'OVERDUES',
115
});
116
is( @$debarments, 1, "DelUniqueDebarment without the argument 'borrowerumber' does not delete the debarment" );
117
118
$delUniqueDebarment = DelUniqueDebarment({
119
    borrowernumber => $borrowernumber,
120
    type => 'SUSPENSION',
121
});
122
is( $delUniqueDebarment, undef, "DelUniqueDebarment with wrong arguments returns undef" );
123
$debarments = GetDebarments({
124
    borrowernumber => $borrowernumber,
125
    type => 'OVERDUES',
126
});
127
is( @$debarments, 1, "DelUniqueDebarment with wrong arguments does not delete the debarment" );
128
129
$delUniqueDebarment = DelUniqueDebarment({
90
    borrowernumber => $borrowernumber,
130
    borrowernumber => $borrowernumber,
91
    type => 'OVERDUES',
131
    type => 'OVERDUES',
92
});
132
});
133
is( $delUniqueDebarment, 1, "DelUniqueDebarment returns 1" );
93
$debarments = GetDebarments({
134
$debarments = GetDebarments({
94
    borrowernumber => $borrowernumber,
135
    borrowernumber => $borrowernumber,
95
    type => 'OVERDUES',
136
    type => 'OVERDUES',
96
- 

Return to bug 12416