Lines 20-26
use Modern::Perl;
Link Here
|
20 |
use Test::More tests => 21; |
20 |
use Test::More tests => 21; |
21 |
use Test::Exception; |
21 |
use Test::Exception; |
22 |
use Test::Warn; |
22 |
use Test::Warn; |
23 |
use DateTime; |
|
|
24 |
|
23 |
|
25 |
use C4::Context; |
24 |
use C4::Context; |
26 |
use C4::Circulation qw( AddIssue ); |
25 |
use C4::Circulation qw( AddIssue ); |
Lines 988-994
subtest 'unblessed_all_relateds' => sub {
Link Here
|
988 |
} |
987 |
} |
989 |
); |
988 |
); |
990 |
|
989 |
|
991 |
my $issue = AddIssue( $patron, $item->barcode, DateTime->now->subtract( days => 1 ) ); |
990 |
my $issue = AddIssue( $patron, $item->barcode, dt_from_string()->subtract( days => 1 ) ); |
992 |
my $overdues = Koha::Patrons->find( $patron->id )->overdues; # Koha::Patron->overdues prefetches |
991 |
my $overdues = Koha::Patrons->find( $patron->id )->overdues; # Koha::Patron->overdues prefetches |
993 |
my $overdue = $overdues->next->unblessed_all_relateds; |
992 |
my $overdue = $overdues->next->unblessed_all_relateds; |
994 |
is( $overdue->{issue_id}, $issue->issue_id, 'unblessed_all_relateds has field from the original table (issues)' ); |
993 |
is( $overdue->{issue_id}, $issue->issue_id, 'unblessed_all_relateds has field from the original table (issues)' ); |
995 |
- |
|
|