|
Lines 4-9
use Modern::Perl;
Link Here
|
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 3; |
5 |
use Test::More tests => 3; |
| 6 |
|
6 |
|
|
|
7 |
use C4::Calendar; |
| 7 |
use C4::Context; |
8 |
use C4::Context; |
| 8 |
use C4::Overdues; |
9 |
use C4::Overdues; |
| 9 |
|
10 |
|
|
Lines 62-68
my $item = $builder->build_sample_item(
Link Here
|
| 62 |
); |
63 |
); |
| 63 |
|
64 |
|
| 64 |
subtest 'Test basic functionality' => sub { |
65 |
subtest 'Test basic functionality' => sub { |
| 65 |
plan tests => 1; |
66 |
plan tests => 3; |
|
|
67 |
|
| 68 |
t::lib::Mocks::mock_preference('finesCalendar', 'ignoreCalendar'); |
| 66 |
|
69 |
|
| 67 |
Koha::CirculationRules->set_rules( |
70 |
Koha::CirculationRules->set_rules( |
| 68 |
{ |
71 |
{ |
|
Lines 97-102
subtest 'Test basic functionality' => sub {
Link Here
|
| 97 |
|
100 |
|
| 98 |
is( $amount, 29, 'Amount is calculated correctly' ); |
101 |
is( $amount, 29, 'Amount is calculated correctly' ); |
| 99 |
|
102 |
|
|
|
103 |
|
| 104 |
C4::Calendar->new(branchcode=>$branch->{branchcode})->insert_single_holiday(date=>'2000-01-30',title=>'test',description=>'test'); |
| 105 |
($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 106 |
is( $amount, 29, 'Amount is calculated correctly ignoring holidays' ); |
| 107 |
|
| 108 |
t::lib::Mocks::mock_preference('finesCalendar', 'noFinesWhenClosed'); |
| 109 |
($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 110 |
is( $amount, 28, 'Amount is calculated correctly excluding holidays' ); |
| 111 |
|
| 100 |
teardown(); |
112 |
teardown(); |
| 101 |
}; |
113 |
}; |
| 102 |
|
114 |
|
| 103 |
- |
|
|