|
Lines 18-24
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
use utf8; |
19 |
use utf8; |
| 20 |
|
20 |
|
| 21 |
use Test::More tests => 74; |
21 |
use Test::More tests => 75; |
| 22 |
use Test::Exception; |
22 |
use Test::Exception; |
| 23 |
use Test::MockModule; |
23 |
use Test::MockModule; |
| 24 |
use Test::Deep qw( cmp_deeply ); |
24 |
use Test::Deep qw( cmp_deeply ); |
|
Lines 293-298
Koha::CirculationRules->set_rules(
Link Here
|
| 293 |
} |
293 |
} |
| 294 |
); |
294 |
); |
| 295 |
|
295 |
|
|
|
296 |
subtest 'AddIssue | renewal when adding issue to same borrower' => sub { |
| 297 |
plan tests => 2; |
| 298 |
|
| 299 |
my $item = $builder->build_sample_item(); |
| 300 |
|
| 301 |
# Set a simple circ policy |
| 302 |
Koha::CirculationRules->set_rules( |
| 303 |
{ |
| 304 |
categorycode => undef, |
| 305 |
branchcode => undef, |
| 306 |
itemtype => $item->itype, |
| 307 |
rules => { |
| 308 |
maxissueqty => 1, |
| 309 |
reservesallowed => 25, |
| 310 |
issuelength => 7, |
| 311 |
lengthunit => 'days', |
| 312 |
renewalsallowed => 5, |
| 313 |
renewalperiod => 7, |
| 314 |
norenewalbefore => undef, |
| 315 |
auto_renew => 0, |
| 316 |
fine => .10, |
| 317 |
chargeperiod => 1, |
| 318 |
} |
| 319 |
} |
| 320 |
); |
| 321 |
|
| 322 |
my $now = dt_from_string()->truncate( to => 'day' ); |
| 323 |
my $seven_days = $now->clone->add( days => 7 )->truncate( to => 'day' ); |
| 324 |
my $fourteen_days = $now->clone->add( days => 14 )->truncate( to => 'day' ); |
| 325 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 326 |
my $staff = $builder->build_object( { class => "Koha::Patrons" } ); |
| 327 |
t::lib::Mocks::mock_userenv( { patron => $staff } ); |
| 328 |
|
| 329 |
my $issue = AddIssue( $patron, $item->barcode ); |
| 330 |
is( dt_from_string( $issue->date_due )->truncate( to => 'day' ), $seven_days, "Item issued for correct term" ); |
| 331 |
$issue = AddIssue( $patron, $item->barcode ); |
| 332 |
is( |
| 333 |
dt_from_string( $issue->date_due )->truncate( to => 'day' ), $fourteen_days, |
| 334 |
"Second issue renews item for correct term" |
| 335 |
); |
| 336 |
|
| 337 |
}; |
| 338 |
|
| 296 |
subtest "CanBookBeRenewed AllowRenewalIfOtherItemsAvailable multiple borrowers and items tests" => sub { |
339 |
subtest "CanBookBeRenewed AllowRenewalIfOtherItemsAvailable multiple borrowers and items tests" => sub { |
| 297 |
plan tests => 7; |
340 |
plan tests => 7; |
| 298 |
|
341 |
|
| 299 |
- |
|
|