View | Details | Raw Unified | Return to bug 30275
Collapse All | Expand All

(-)a/t/db_dependent/Circulation.t (-2 / +29 lines)
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
- 

Return to bug 30275