|
Lines 122-136
subtest 'Overdue fines cap should be disabled when value is 0' => sub {
Link Here
|
| 122 |
); |
122 |
); |
| 123 |
|
123 |
|
| 124 |
my $start_dt = DateTime->new( |
124 |
my $start_dt = DateTime->new( |
| 125 |
year => 2000, |
125 |
year => 2000, |
| 126 |
month => 1, |
126 |
month => 1, |
| 127 |
day => 1, |
127 |
day => 1, |
| 128 |
); |
128 |
); |
| 129 |
|
129 |
|
| 130 |
my $end_dt = DateTime->new( |
130 |
my $end_dt = DateTime->new( |
| 131 |
year => 2000, |
131 |
year => 2000, |
| 132 |
month => 1, |
132 |
month => 1, |
| 133 |
day => 30, |
133 |
day => 30, |
| 134 |
); |
134 |
); |
| 135 |
|
135 |
|
| 136 |
my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
136 |
my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
|
Lines 161-175
subtest 'Overdue fines cap should be disabled when value is 0.00' => sub {
Link Here
|
| 161 |
); |
161 |
); |
| 162 |
|
162 |
|
| 163 |
my $start_dt = DateTime->new( |
163 |
my $start_dt = DateTime->new( |
| 164 |
year => 2000, |
164 |
year => 2000, |
| 165 |
month => 1, |
165 |
month => 1, |
| 166 |
day => 1, |
166 |
day => 1, |
| 167 |
); |
167 |
); |
| 168 |
|
168 |
|
| 169 |
my $end_dt = DateTime->new( |
169 |
my $end_dt = DateTime->new( |
| 170 |
year => 2000, |
170 |
year => 2000, |
| 171 |
month => 1, |
171 |
month => 1, |
| 172 |
day => 30, |
172 |
day => 30, |
| 173 |
); |
173 |
); |
| 174 |
|
174 |
|
| 175 |
my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
175 |
my ($amount) = CalcFine( $item->unblessed, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
|
Lines 179-184
subtest 'Overdue fines cap should be disabled when value is 0.00' => sub {
Link Here
|
| 179 |
teardown(); |
179 |
teardown(); |
| 180 |
}; |
180 |
}; |
| 181 |
|
181 |
|
|
|
182 |
|
| 182 |
subtest 'Test with fine amount empty' => sub { |
183 |
subtest 'Test with fine amount empty' => sub { |
| 183 |
plan tests => 1; |
184 |
plan tests => 1; |
| 184 |
|
185 |
|
| 185 |
- |
|
|