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

(-)a/t/db_dependent/Koha/Patrons.t (-6 / +6 lines)
Lines 1-4 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use Carp::Always;
2
3
3
# Copyright 2015 Koha Development team
4
# Copyright 2015 Koha Development team
4
#
5
#
Lines 19-25 Link Here
19
20
20
use Modern::Perl;
21
use Modern::Perl;
21
22
22
use Test::More tests => 7;
23
use Test::More tests => 8;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use C4::Circulation;
26
use C4::Circulation;
Lines 128-141 subtest 'has_overdues' => sub { Link Here
128
    is( $retrieved_patron->has_overdues, 0, );
129
    is( $retrieved_patron->has_overdues, 0, );
129
130
130
    my $tomorrow = DateTime->today( time_zone => C4::Context->tz() )->add( days => 1 );
131
    my $tomorrow = DateTime->today( time_zone => C4::Context->tz() )->add( days => 1 );
131
    my $issue = AddIssue( $new_patron_1->unblessed, $item_1->{barcode} );
132
    my $issue = Koha::Issue->new({ borrowernumber => $new_patron_1->id, itemnumber => $item_1->{itemnumber}, date_due => $tomorrow, branchcode => $library->{branchcode} })->store();
132
    is( $retrieved_patron->has_overdues, 0, );
133
    is( $retrieved_patron->has_overdues, 0, );
133
    AddReturn( $item_1->{barcode} );
134
    $issue->delete();
134
    my $yesterday = DateTime->today(time_zone => C4::Context->tz())->add( days => -1 );
135
    my $yesterday = DateTime->today(time_zone => C4::Context->tz())->add( days => -1 );
135
    $issue = AddIssue( $new_patron_1->unblessed, $item_1->{barcode}, $yesterday );
136
    $issue = Koha::Issue->new({ borrowernumber => $new_patron_1->id, itemnumber => $item_1->{itemnumber}, date_due => $yesterday, branchcode => $library->{branchcode} })->store();
136
    $retrieved_patron = Koha::Patrons->find( $new_patron_1->borrowernumber );
137
    $retrieved_patron = Koha::Patrons->find( $new_patron_1->borrowernumber );
137
    is( $retrieved_patron->has_overdues, 1, );
138
    is( $retrieved_patron->has_overdues, 1, );
138
    AddReturn( $item_1->{barcode} );
139
    $issue->delete();
139
};
140
};
140
141
141
subtest 'update_password' => sub {
142
subtest 'update_password' => sub {
142
- 

Return to bug 16851