Lines 1324-1336
subtest 'generate_userid' => sub {
Link Here
|
1324 |
|
1324 |
|
1325 |
my $expected_userid_patron_1 = 'tomasito.none'; |
1325 |
my $expected_userid_patron_1 = 'tomasito.none'; |
1326 |
my $new_patron = Koha::Patron->new({ firstname => $data{firstname}, surname => $data{surname} } ); |
1326 |
my $new_patron = Koha::Patron->new({ firstname => $data{firstname}, surname => $data{surname} } ); |
1327 |
my $userid = $new_patron->generate_userid; |
1327 |
$new_patron->generate_userid; |
|
|
1328 |
my $userid = $new_patron->userid; |
1328 |
is( $userid, $expected_userid_patron_1, 'generate_userid should generate the userid we expect' ); |
1329 |
is( $userid, $expected_userid_patron_1, 'generate_userid should generate the userid we expect' ); |
1329 |
my $borrowernumber = Koha::Patron->new(\%data)->store->borrowernumber; |
1330 |
my $borrowernumber = Koha::Patron->new(\%data)->store->borrowernumber; |
1330 |
my $patron_1 = Koha::Patrons->find($borrowernumber); |
1331 |
my $patron_1 = Koha::Patrons->find($borrowernumber); |
1331 |
is ( $patron_1->userid, $expected_userid_patron_1, 'The userid generated should be the one we expect' ); |
1332 |
is ( $patron_1->userid, $expected_userid_patron_1, 'The userid generated should be the one we expect' ); |
1332 |
|
1333 |
|
1333 |
$userid = $new_patron->generate_userid; |
1334 |
$new_patron->generate_userid; |
|
|
1335 |
$userid = $new_patron->userid; |
1334 |
is( $userid, $expected_userid_patron_1 . '1', 'generate_userid should generate the userid we expect' ); |
1336 |
is( $userid, $expected_userid_patron_1 . '1', 'generate_userid should generate the userid we expect' ); |
1335 |
$data{cardnumber} = '987654321'; |
1337 |
$data{cardnumber} = '987654321'; |
1336 |
my $new_borrowernumber = Koha::Patron->new(\%data)->store->borrowernumber; |
1338 |
my $new_borrowernumber = Koha::Patron->new(\%data)->store->borrowernumber; |
Lines 1340-1351
subtest 'generate_userid' => sub {
Link Here
|
1340 |
is( $patron_2->userid, $expected_userid_patron_1 . '1', # TODO we could make that configurable |
1342 |
is( $patron_2->userid, $expected_userid_patron_1 . '1', # TODO we could make that configurable |
1341 |
"Patron with duplicate userid has new userid generated (1 is appened" ); |
1343 |
"Patron with duplicate userid has new userid generated (1 is appened" ); |
1342 |
|
1344 |
|
1343 |
$userid = $new_patron->generate_userid; |
1345 |
$new_patron->generate_userid; |
|
|
1346 |
$userid = $new_patron->userid; |
1344 |
is( $userid, $expected_userid_patron_1 . '2', 'generate_userid should generate the userid we expect' ); |
1347 |
is( $userid, $expected_userid_patron_1 . '2', 'generate_userid should generate the userid we expect' ); |
1345 |
|
1348 |
|
1346 |
$patron_1 = Koha::Patrons->find($borrowernumber); |
1349 |
$patron_1 = Koha::Patrons->find($borrowernumber); |
1347 |
$patron_1->userid(undef); |
1350 |
$patron_1->userid(undef); |
1348 |
$userid = $patron_1->generate_userid; |
1351 |
$patron_1->generate_userid; |
|
|
1352 |
$userid = $patron_1->userid; |
1349 |
is( $userid, $expected_userid_patron_1, 'generate_userid should generate the userid we expect' ); |
1353 |
is( $userid, $expected_userid_patron_1, 'generate_userid should generate the userid we expect' ); |
1350 |
|
1354 |
|
1351 |
# Cleanup |
1355 |
# Cleanup |
1352 |
- |
|
|