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

(-)a/t/db_dependent/Reserves_GetReserveFee.t (-1 / +44 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
use Test::More tests => 3;
5
6
use C4::Reserves qw|GetReserveFee|;
7
use t::lib::TestBuilder;
8
9
my $builder = t::lib::TestBuilder->new();
10
11
# Two categories
12
$builder->build({
13
    source => 'Category',
14
    value  => {
15
        categorycode          => 'XYZ1',
16
        reservefee            => 2.5,
17
    },
18
});
19
$builder->build({
20
    source => 'Category',
21
    value  => {
22
        categorycode          => 'XYZ2',
23
        reservefee            => 0,
24
    },
25
});
26
27
# Two patrons
28
my $patron1 = $builder->build({
29
    source => 'Borrower',
30
    value  => {
31
        categorycode => 'XYZ1',
32
    },
33
});
34
my $patron2 = $builder->build({
35
    source => 'Borrower',
36
    value  => {
37
        categorycode => 'XYZ2',
38
    },
39
});
40
41
# Call GetReserveFee with no borrower and the two patrons
42
is( GetReserveFee(), undef, 'First call without pars works fine' );
43
is( GetReserveFee( $patron1->{borrowernumber} ) > 0, 1, 'Second call should trigger some fee' );
44
is( GetReserveFee( $patron2->{borrowernumber} ), undef, 'Third call should not trigger any fee' );

Return to bug 14702