Lines 278-292
ok (!_find_member($results), "Delete member")
Link Here
|
278 |
branchcode => "MPL", |
278 |
branchcode => "MPL", |
279 |
dateofbirth => '', |
279 |
dateofbirth => '', |
280 |
dateexpiry => '9999-12-31', |
280 |
dateexpiry => '9999-12-31', |
281 |
userid => 'tomasito' |
|
|
282 |
); |
281 |
); |
283 |
# Add a new borrower |
282 |
# Add a new borrower |
284 |
my $borrowernumber = AddMember( %data ); |
283 |
my $borrowernumber = AddMember( %data ); |
285 |
is( Check_Userid( 'tomasito', $borrowernumber ), 1, |
284 |
is( Check_Userid( 'tomasito.non', $borrowernumber ), 1, |
286 |
'recently created userid -> unique (borrowernumber passed)' ); |
285 |
'recently created userid -> unique (borrowernumber passed)' ); |
287 |
is( Check_Userid( 'tomasitoxxx', $borrowernumber ), 1, |
286 |
is( Check_Userid( 'tomasitoxxx', $borrowernumber ), 1, |
288 |
'non-existent userid -> unique (borrowernumber passed)' ); |
287 |
'non-existent userid -> unique (borrowernumber passed)' ); |
289 |
is( Check_Userid( 'tomasito', '' ), 0, |
288 |
is( Check_Userid( 'tomasito.none', '' ), 0, |
290 |
'userid exists (blank borrowernumber)' ); |
289 |
'userid exists (blank borrowernumber)' ); |
291 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
290 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
292 |
'non-existent userid -> unique (blank borrowernumber)' ); |
291 |
'non-existent userid -> unique (blank borrowernumber)' ); |
Lines 294-305
is( Check_Userid( 'tomasitoxxx', '' ), 1,
Link Here
|
294 |
# Add a new borrower with the same userid but different cardnumber |
293 |
# Add a new borrower with the same userid but different cardnumber |
295 |
$data{ cardnumber } = "987654321"; |
294 |
$data{ cardnumber } = "987654321"; |
296 |
my $new_borrowernumber = AddMember( %data ); |
295 |
my $new_borrowernumber = AddMember( %data ); |
297 |
is( Check_Userid( 'tomasito', '' ), 0, |
296 |
is( Check_Userid( 'tomasito.none', '' ), 0, |
298 |
'userid not unique (blank borrowernumber)' ); |
297 |
'userid not unique (blank borrowernumber)' ); |
299 |
is( Check_Userid( 'tomasito', $borrowernumber ), 0, |
298 |
is( Check_Userid( 'tomasito.none', $new_borrowernumber ), 0, |
300 |
'userid not unique (first borrowernumber passed)' ); |
|
|
301 |
is( Check_Userid( 'tomasito', $new_borrowernumber ), 0, |
302 |
'userid not unique (second borrowernumber passed)' ); |
299 |
'userid not unique (second borrowernumber passed)' ); |
|
|
300 |
my $borrower = GetMember( borrowernumber => $new_borrowernumber ); |
301 |
ok( $borrower->{userid} ne 'tomasito', "Borrower with duplicate userid has new userid generated" ); |
303 |
|
302 |
|
304 |
# Regression tests for BZ12226 |
303 |
# Regression tests for BZ12226 |
305 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
304 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
306 |
- |
|
|