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 => 60; |
21 |
use Test::More tests => 61; |
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 4361-4366
subtest 'AddRenewal and AddIssuingCharge tests' => sub {
Link Here
|
4361 |
|
4361 |
|
4362 |
}; |
4362 |
}; |
4363 |
|
4363 |
|
|
|
4364 |
subtest 'AddRenewal() adds to renewals' => sub { |
4365 |
plan tests => 4; |
4366 |
|
4367 |
my $library = $builder->build_object({ class => 'Koha::Libraries' }); |
4368 |
my $patron = $builder->build_object({ |
4369 |
class => 'Koha::Patrons', |
4370 |
value => { branchcode => $library->id } |
4371 |
}); |
4372 |
|
4373 |
my $item = $builder->build_sample_item(); |
4374 |
|
4375 |
set_userenv( $library->unblessed ); |
4376 |
|
4377 |
# Check the item out |
4378 |
my $issue = AddIssue( $patron->unblessed, $item->barcode ); |
4379 |
is(ref($issue), 'Koha::Checkout', 'Issue added'); |
4380 |
|
4381 |
# Renew item |
4382 |
my $duedate = AddRenewal( $patron->id, $item->id, $library->id ); |
4383 |
|
4384 |
ok( $duedate, "Renewal added" ); |
4385 |
|
4386 |
my $renewals = Koha::Checkouts::Renewals->search({ checkout_id => $issue->issue_id }); |
4387 |
is($renewals->count, 1, 'One renewal added'); |
4388 |
my $THE_renewal = $renewals->next; |
4389 |
is( $THE_renewal->renewer_id, C4::Context->userenv->{'number'}, 'Renewer recorded from context' ); |
4390 |
}; |
4391 |
|
4364 |
subtest 'ProcessOfflinePayment() tests' => sub { |
4392 |
subtest 'ProcessOfflinePayment() tests' => sub { |
4365 |
|
4393 |
|
4366 |
plan tests => 4; |
4394 |
plan tests => 4; |
4367 |
- |
|
|