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

(-)a/t/db_dependent/Patron/Borrower_Debarments.t (-2 / +34 lines)
Lines 8-14 use Koha::Patrons; Link Here
8
8
9
use t::lib::TestBuilder;
9
use t::lib::TestBuilder;
10
10
11
use Test::More tests => 31;
11
use Test::More tests => 33;
12
12
13
use_ok('Koha::Patron::Debarments');
13
use_ok('Koha::Patron::Debarments');
14
14
Lines 161-163 is( Koha::Patrons->find( $borrowernumber )->is_debarred, undef, 'A patron withou Link Here
161
161
162
$dbh->do(q|UPDATE borrowers SET debarred = '9999-12-31'|); # Note: Change this test before the first of January 10000!
162
$dbh->do(q|UPDATE borrowers SET debarred = '9999-12-31'|); # Note: Change this test before the first of January 10000!
163
is( Koha::Patrons->find( $borrowernumber )->is_debarred, '9999-12-31', 'A patron with a debarred date in the future is debarred' );
163
is( Koha::Patrons->find( $borrowernumber )->is_debarred, '9999-12-31', 'A patron with a debarred date in the future is debarred' );
164
- 
164
165
# Test patrons merge
166
my $borrowernumber2 = Koha::Patron->new(
167
    {
168
        firstname    => 'my firstname bis',
169
        surname      => 'my surname bis',
170
        categorycode => $patron_category->{categorycode},
171
        branchcode   => $library->{branchcode},
172
    }
173
)->store->borrowernumber;
174
my $debarreddate2    = '9999-06-10'; # Be sure to be in the future
175
my $debarredcomment2 = 'Test merge';
176
AddDebarment(
177
    {
178
        borrowernumber => $borrowernumber2,
179
        expiration     => $debarreddate2,
180
        type           => 'MANUAL',
181
        comment        => $debarredcomment2,
182
    }
183
);
184
my $borrowernumber3 = Koha::Patron->new(
185
    {
186
        firstname    => 'my firstname ter',
187
        surname      => 'my surname ter',
188
        categorycode => $patron_category->{categorycode},
189
        branchcode   => $library->{branchcode},
190
    }
191
)->store->borrowernumber;
192
Koha::Patrons->find($borrowernumber3)->merge_with( [$borrowernumber2] );
193
is( Koha::Patrons->find($borrowernumber3)->debarred,
194
    $debarreddate2, 'Koha::Patron->merge_with() transfers well debarred' );
195
is( Koha::Patrons->find($borrowernumber3)->debarredcomment,
196
    $debarredcomment2, 'Koha::Patron->merge_with() transfers well debarredcomment' );

Return to bug 26594