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

(-)a/t/db_dependent/Koha/Patrons.t (-7 / +7 lines)
Lines 1283-1296 subtest 'generate_userid' => sub { Link Here
1283
    );
1283
    );
1284
1284
1285
    my $expected_userid_patron_1 = 'tomasito.none';
1285
    my $expected_userid_patron_1 = 'tomasito.none';
1286
    my $userid = C4::Members::Generate_Userid( undef, $data{firstname}, $data{surname} );
1286
    my $new_patron = Koha::Patron->new({ firstname => $data{firstname}, surname => $data{surname} } );
1287
    is( $userid, $expected_userid_patron_1, 'Generate_Userid should generate the userid we expect' );
1287
    my $userid = $new_patron->generate_userid;
1288
    is( $userid, $expected_userid_patron_1, 'generate_userid should generate the userid we expect' );
1288
    my $borrowernumber = AddMember(%data);
1289
    my $borrowernumber = AddMember(%data);
1289
    my $patron_1 = Koha::Patrons->find($borrowernumber);
1290
    my $patron_1 = Koha::Patrons->find($borrowernumber);
1290
    is ( $patron_1->userid, $expected_userid_patron_1, 'The userid generated should be the one we expect' );
1291
    is ( $patron_1->userid, $expected_userid_patron_1, 'The userid generated should be the one we expect' );
1291
1292
1292
    $userid = C4::Members::Generate_Userid( $borrowernumber, $data{firstname}, $data{surname} );
1293
    $userid = $new_patron->generate_userid;
1293
    is( $userid, $expected_userid_patron_1 . '1', 'Generate_Userid should generate the userid we expect' );
1294
    is( $userid, $expected_userid_patron_1 . '1', 'generate_userid should generate the userid we expect' );
1294
    $data{cardnumber} = '987654321';
1295
    $data{cardnumber} = '987654321';
1295
    my $new_borrowernumber = AddMember(%data);
1296
    my $new_borrowernumber = AddMember(%data);
1296
    my $patron_2 = Koha::Patrons->find($new_borrowernumber);
1297
    my $patron_2 = Koha::Patrons->find($new_borrowernumber);
Lines 1299-1306 subtest 'generate_userid' => sub { Link Here
1299
    is( $patron_2->userid, $expected_userid_patron_1 . '1', # TODO we could make that configurable
1300
    is( $patron_2->userid, $expected_userid_patron_1 . '1', # TODO we could make that configurable
1300
        "Patron with duplicate userid has new userid generated (1 is appened" );
1301
        "Patron with duplicate userid has new userid generated (1 is appened" );
1301
1302
1302
    $userid = C4::Members::Generate_Userid( $borrowernumber, $data{firstname}, $data{surname} );
1303
    $userid = $new_patron->generate_userid;
1303
    is( $userid, $expected_userid_patron_1 . '2', 'Generate_Userid should generate the userid we expect' );
1304
    is( $userid, $expected_userid_patron_1 . '2', 'generate_userid should generate the userid we expect' );
1304
1305
1305
    # Cleanup
1306
    # Cleanup
1306
    $patron_1->delete;
1307
    $patron_1->delete;
1307
- 

Return to bug 19936