|
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 |
- |
|
|