|
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 |
- |
|
|