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