subtest 'generate_userid' => sub {

    plan tests => 6;

    my $library = $builder->build_object( { class => 'Koha::Libraries' } );

    my $patron_category = $builder->build_object(

        {

            class => 'Koha::Patron::Categories',

            value => { category_type => 'P', enrolmentfee => 0 }

        }

    );

    my %data = (

        cardnumber   => "123456789",

        firstname    => "Tomasito",

        surname      => "None",

        categorycode => $patron_category->categorycode,

        branchcode   => $library->branchcode,

    );

    my $expected_userid_patron_1 = 'tomasito.none';

    my $userid = C4::Members::Generate_Userid( undef, $data{firstname}, $data{surname} );

    is( $userid, $expected_userid_patron_1, 'Generate_Userid should generate the userid we expect' );

    my $borrowernumber = AddMember(%data);

    my $patron_1 = Koha::Patrons->find($borrowernumber);

    is ( $patron_1->userid, $expected_userid_patron_1, 'The userid generated should be the one we expect' );

    $userid = C4::Members::Generate_Userid( $borrowernumber, $data{firstname}, $data{surname} );

    is( $userid, $expected_userid_patron_1 . '1', 'Generate_Userid should generate the userid we expect' );

    $data{cardnumber} = '987654321';

    my $new_borrowernumber = AddMember(%data);

    my $patron_2 = Koha::Patrons->find($new_borrowernumber);

    isnt( $patron_2->userid, 'tomasito',

        "Patron with duplicate userid has new userid generated" );

    is( $patron_2->userid, $expected_userid_patron_1 . '1', # TODO we could make that configurable

        "Patron with duplicate userid has new userid generated (1 is appened" );

    $userid = C4::Members::Generate_Userid( $borrowernumber, $data{firstname}, $data{surname} );

    is( $userid, $expected_userid_patron_1 . '2', 'Generate_Userid should generate the userid we expect' );

    # Cleanup

    $patron_1->delete;

    $patron_2->delete;

};