|
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' ); |