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

Return to bug 30275