Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 69; |
20 |
use Test::More tests => 70; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
23 |
use C4::Context; |
23 |
use C4::Context; |
Lines 298-303
is( Check_Userid( 'tomasito.none', $new_borrowernumber ), 0,
Link Here
|
298 |
my $borrower = GetMember( borrowernumber => $new_borrowernumber ); |
298 |
my $borrower = GetMember( borrowernumber => $new_borrowernumber ); |
299 |
ok( $borrower->{userid} ne 'tomasito', "Borrower with duplicate userid has new userid generated" ); |
299 |
ok( $borrower->{userid} ne 'tomasito', "Borrower with duplicate userid has new userid generated" ); |
300 |
|
300 |
|
|
|
301 |
$data{ cardnumber } = "234567890"; |
302 |
$data{userid} = 'a_user_id'; |
303 |
$borrowernumber = AddMember( %data ); |
304 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
305 |
is( $borrower->{userid}, $data{userid}, 'AddMember should insert the given userid' ); |
306 |
|
301 |
# Regression tests for BZ12226 |
307 |
# Regression tests for BZ12226 |
302 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
308 |
is( Check_Userid( C4::Context->config('user'), '' ), 0, |
303 |
'Check_Userid should return 0 for the DB user (Bug 12226)'); |
309 |
'Check_Userid should return 0 for the DB user (Bug 12226)'); |
304 |
- |
|
|