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