Bug 21196: Add tests
Signed-off-by: Caroline Cyr La rose <caroline.cyr-la-rose@inlibro.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
parent
bf908a5f07
commit
d415e51180
1 changed files with 26 additions and 5 deletions
|
@ -12,12 +12,14 @@ use Koha::DateUtils qw( dt_from_string );
|
||||||
use t::lib::TestBuilder;
|
use t::lib::TestBuilder;
|
||||||
use t::lib::Mocks;
|
use t::lib::Mocks;
|
||||||
|
|
||||||
our $dbh = C4::Context->dbh;
|
my $schema = Koha::Database->schema;
|
||||||
$dbh->{AutoCommit} = 0;
|
$schema->storage->txn_begin;
|
||||||
$dbh->{RaiseError} = 1;
|
|
||||||
|
|
||||||
|
our $dbh = C4::Context->dbh;
|
||||||
$dbh->do(q|DELETE FROM issues|);
|
$dbh->do(q|DELETE FROM issues|);
|
||||||
|
|
||||||
|
t::lib::Mocks::mock_preference('item-level_itypes', '1');
|
||||||
|
|
||||||
my $builder = t::lib::TestBuilder->new();
|
my $builder = t::lib::TestBuilder->new();
|
||||||
|
|
||||||
my $branch = $builder->build(
|
my $branch = $builder->build(
|
||||||
|
@ -51,6 +53,15 @@ my $biblio = $builder->build(
|
||||||
}
|
}
|
||||||
);
|
);
|
||||||
|
|
||||||
|
my $itemtype = $builder->build(
|
||||||
|
{
|
||||||
|
source => 'Itemtype',
|
||||||
|
value => {
|
||||||
|
defaultreplacecost => 6,
|
||||||
|
},
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
my $item = $builder->build(
|
my $item = $builder->build(
|
||||||
{
|
{
|
||||||
source => 'Item',
|
source => 'Item',
|
||||||
|
@ -59,6 +70,7 @@ my $item = $builder->build(
|
||||||
homebranch => $branch->{branchcode},
|
homebranch => $branch->{branchcode},
|
||||||
holdingbranch => $branch->{branchcode},
|
holdingbranch => $branch->{branchcode},
|
||||||
replacementprice => '5.00',
|
replacementprice => '5.00',
|
||||||
|
itype => $itemtype->{itemtype},
|
||||||
},
|
},
|
||||||
}
|
}
|
||||||
);
|
);
|
||||||
|
@ -110,7 +122,9 @@ subtest 'Test basic functionality' => sub {
|
||||||
};
|
};
|
||||||
|
|
||||||
subtest 'Test cap_fine_to_replacement_price' => sub {
|
subtest 'Test cap_fine_to_replacement_price' => sub {
|
||||||
plan tests => 1;
|
plan tests => 2;
|
||||||
|
|
||||||
|
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1');
|
||||||
my $issuingrule = $builder->build(
|
my $issuingrule = $builder->build(
|
||||||
{
|
{
|
||||||
source => 'Issuingrule',
|
source => 'Issuingrule',
|
||||||
|
@ -143,7 +157,14 @@ subtest 'Test cap_fine_to_replacement_price' => sub {
|
||||||
|
|
||||||
my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
|
my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
|
||||||
|
|
||||||
is( $amount, '5.00', 'Amount is calculated correctly' );
|
is( int($amount), 5, 'Amount is calculated correctly' );
|
||||||
|
|
||||||
|
|
||||||
|
# Use default replacement cost (useDefaultReplacementCost) is item's replacement price is 0
|
||||||
|
my $item_obj = Koha::Items->find($item->{itemnumber});
|
||||||
|
$item_obj->replacementprice(0)->store;
|
||||||
|
($amount) = CalcFine( $item_obj->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt );
|
||||||
|
is( int($amount), 6, 'Amount is calculated correctly' );
|
||||||
|
|
||||||
teardown();
|
teardown();
|
||||||
};
|
};
|
||||||
|
|
Loading…
Reference in a new issue