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

(-)a/t/db_dependent/Circulation/CalcFine.t (-6 / +26 lines)
Lines 12-23 use Koha::DateUtils qw( dt_from_string ); Link Here
12
use t::lib::TestBuilder;
12
use t::lib::TestBuilder;
13
use t::lib::Mocks;
13
use t::lib::Mocks;
14
14
15
our $dbh = C4::Context->dbh;
15
my $schema = Koha::Database->schema;
16
$dbh->{AutoCommit} = 0;
16
$schema->storage->txn_begin;
17
$dbh->{RaiseError} = 1;
18
17
18
our $dbh = C4::Context->dbh;
19
$dbh->do(q|DELETE FROM issues|);
19
$dbh->do(q|DELETE FROM issues|);
20
20
21
t::lib::Mocks::mock_preference('item-level_itypes', '1');
22
21
my $builder = t::lib::TestBuilder->new();
23
my $builder = t::lib::TestBuilder->new();
22
24
23
my $branch = $builder->build(
25
my $branch = $builder->build(
Lines 51-56 my $biblio = $builder->build( Link Here
51
    }
53
    }
52
);
54
);
53
55
56
my $itemtype = $builder->build(
57
    {
58
        source => 'Itemtype',
59
        value => {
60
            defaultreplacecost => 6,
61
        },
62
    }
63
);
64
54
my $item = $builder->build(
65
my $item = $builder->build(
55
    {
66
    {
56
        source => 'Item',
67
        source => 'Item',
Lines 59-64 my $item = $builder->build( Link Here
59
            homebranch       => $branch->{branchcode},
70
            homebranch       => $branch->{branchcode},
60
            holdingbranch    => $branch->{branchcode},
71
            holdingbranch    => $branch->{branchcode},
61
            replacementprice => '5.00',
72
            replacementprice => '5.00',
73
            itype            => $itemtype->{itemtype},
62
        },
74
        },
63
    }
75
    }
64
);
76
);
Lines 110-116 subtest 'Test basic functionality' => sub { Link Here
110
};
122
};
111
123
112
subtest 'Test cap_fine_to_replacement_price' => sub {
124
subtest 'Test cap_fine_to_replacement_price' => sub {
113
    plan tests => 1;
125
    plan tests => 2;
126
127
    t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1');
114
    my $issuingrule = $builder->build(
128
    my $issuingrule = $builder->build(
115
        {
129
        {
116
            source => 'Issuingrule',
130
            source => 'Issuingrule',
Lines 143-149 subtest 'Test cap_fine_to_replacement_price' => sub { Link Here
143
157
144
    my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
158
    my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
145
159
146
    is( $amount, '5.00', 'Amount is calculated correctly' );
160
    is( int($amount), 5, 'Amount is calculated correctly' );
161
162
163
    # Use default replacement cost (useDefaultReplacementCost) is item's replacement price is 0
164
    my $item_obj = Koha::Items->find($item->{itemnumber});
165
    $item_obj->replacementprice(0)->store;
166
    ($amount) = CalcFine( $item_obj->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
167
    is( int($amount), 6, 'Amount is calculated correctly' );
147
168
148
    teardown();
169
    teardown();
149
};
170
};
150
- 

Return to bug 21196