View | Details | Raw Unified | Return to bug 1861
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-2 / +7 lines)
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
- 

Return to bug 1861