gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 16426: Add tests for ModMember - do not update userid 

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2016-05-03 08:58:26 +01:00 committed by Brendan Gallagher
parent c4eabeda0b
commit e883c19f37
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
t/db_dependent/Members.t
View File

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 76;
use Test::More tests => 77;
use Test::MockModule;
use Data::Dumper;
use C4::Context;
@ -231,6 +231,19 @@ $borrowernumber = AddMember( %data );
$borrower = GetMember( borrowernumber => $borrowernumber );
is( $borrower->{userid}, $data{userid}, 'AddMember should insert the given userid' );
subtest 'ModMember should not update userid if not true' => sub {
plan tests => 3;
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => '' );
$borrower = GetMember( borrowernumber => $borrowernumber );
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an empty string' );
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => 0 );
$borrower = GetMember( borrowernumber => $borrowernumber );
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an 0');
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => undef );
$borrower = GetMember( borrowernumber => $borrowernumber );
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an undefined value');
};
#Regression tests for bug 10612
my $library3 = $builder->build({
source => 'Branch',