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:
parent
a847067d7e
commit
fb706f58b2
1 changed files with 7 additions and 1 deletions
|
@ -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)');
|
||||
|
|
Loading…
Reference in a new issue