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

(-)a/t/db_dependent/Circulation.t (-2 / +37 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 2037-2042 subtest 'AddIssue | recalls' => sub { Link Here
2037
    AddReturn( $item->barcode, $item->homebranch );
2037
    AddReturn( $item->barcode, $item->homebranch );
2038
};
2038
};
2039
2039
2040
subtest 'AddIssue & illrequests.date_due' => sub {
2041
    plan tests => 2;
2042
2043
    t::lib::Mocks::mock_preference( 'ILLModule', 1 );
2044
    my $library = $builder->build( { source => 'Branch' } );
2045
    my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
2046
    my $item = $builder->build_sample_item();
2047
2048
    set_userenv($library);
2049
2050
    my $custom_date_due = '9999-12-18 12:34:56';
2051
    my $expected_date_due = '9999-12-18 23:59:00';
2052
    my $illrequest = Koha::Illrequest->new({
2053
        borrowernumber => $patron->borrowernumber,
2054
        biblio_id => $item->biblionumber,
2055
        branchcode => $library->{'branchcode'},
2056
        date_due => $custom_date_due,
2057
    })->store;
2058
2059
    my $issue = AddIssue( $patron->unblessed, $item->barcode );
2060
    is( $issue->date_due, $expected_date_due, 'Custom illrequest date due has been set for this issue');
2061
2062
    $patron = $builder->build_object( { class => 'Koha::Patrons' } );
2063
    $item = $builder->build_sample_item();
2064
    $custom_date_due = '9999-12-19';
2065
    $expected_date_due = '9999-12-19 23:59:00';
2066
    $illrequest = Koha::Illrequest->new({
2067
        borrowernumber => $patron->borrowernumber,
2068
        biblio_id => $item->biblionumber,
2069
        branchcode => $library->{'branchcode'},
2070
        date_due => $custom_date_due,
2071
    })->store;
2072
2073
    $issue = AddIssue( $patron->unblessed, $item->barcode );
2074
    is( $issue->date_due, $expected_date_due, 'Custom illrequest date due has been set for this issue');
2075
};
2040
2076
2041
subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
2077
subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
2042
    plan tests => 8;
2078
    plan tests => 8;
2043
- 

Return to bug 24239