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 2151-2156 subtest 'AddIssue | recalls' => sub { Link Here
2151
    AddReturn( $item->barcode, $item->homebranch );
2151
    AddReturn( $item->barcode, $item->homebranch );
2152
};
2152
};
2153
2153
2154
subtest 'AddIssue & illrequests.date_due' => sub {
2155
    plan tests => 2;
2156
2157
    t::lib::Mocks::mock_preference( 'ILLModule', 1 );
2158
    my $library = $builder->build( { source => 'Branch' } );
2159
    my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
2160
    my $item = $builder->build_sample_item();
2161
2162
    set_userenv($library);
2163
2164
    my $custom_date_due = '9999-12-18 12:34:56';
2165
    my $expected_date_due = '9999-12-18 23:59:00';
2166
    my $illrequest = Koha::Illrequest->new({
2167
        borrowernumber => $patron->borrowernumber,
2168
        biblio_id => $item->biblionumber,
2169
        branchcode => $library->{'branchcode'},
2170
        date_due => $custom_date_due,
2171
    })->store;
2172
2173
    my $issue = AddIssue( $patron->unblessed, $item->barcode );
2174
    is( $issue->date_due, $expected_date_due, 'Custom illrequest date due has been set for this issue');
2175
2176
    $patron = $builder->build_object( { class => 'Koha::Patrons' } );
2177
    $item = $builder->build_sample_item();
2178
    $custom_date_due = '9999-12-19';
2179
    $expected_date_due = '9999-12-19 23:59:00';
2180
    $illrequest = Koha::Illrequest->new({
2181
        borrowernumber => $patron->borrowernumber,
2182
        biblio_id => $item->biblionumber,
2183
        branchcode => $library->{'branchcode'},
2184
        date_due => $custom_date_due,
2185
    })->store;
2186
2187
    $issue = AddIssue( $patron->unblessed, $item->barcode );
2188
    is( $issue->date_due, $expected_date_due, 'Custom illrequest date due has been set for this issue');
2189
};
2154
2190
2155
subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
2191
subtest 'CanBookBeIssued + Koha::Patron->is_debarred|has_overdues' => sub {
2156
    plan tests => 8;
2192
    plan tests => 8;
2157
- 

Return to bug 24239