Bug 1861: Add 1 test to AddMember

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Jonathan Druart 2014-12-30 09:51:32 +01:00 committed by Tomas Cohen Arazi
parent a847067d7e
commit fb706f58b2

View file

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 69;
use Test::More tests => 70;
use Test::MockModule;
use Data::Dumper;
use C4::Context;
@ -298,6 +298,12 @@ is( Check_Userid( 'tomasito.none', $new_borrowernumber ), 0,
my $borrower = GetMember( borrowernumber => $new_borrowernumber );
ok( $borrower->{userid} ne 'tomasito', "Borrower with duplicate userid has new userid generated" );
$data{ cardnumber } = "234567890";
$data{userid} = 'a_user_id';
$borrowernumber = AddMember( %data );
$borrower = GetMember( borrowernumber => $borrowernumber );
is( $borrower->{userid}, $data{userid}, 'AddMember should insert the given userid' );
# Regression tests for BZ12226
is( Check_Userid( C4::Context->config('user'), '' ), 0,
'Check_Userid should return 0 for the DB user (Bug 12226)');