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 |
- |
|
|