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>
(cherry picked from commit e883c19f37)
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
This commit is contained in:
parent
6ca552c2e8
commit
ea45e3f39e
|
|
@ -17,7 +17,7 @@
|
|||
|
||||
use Modern::Perl;
|
||||
|
||||
use Test::More tests => 77;
|
||||
use Test::More tests => 78;
|
||||
use Test::MockModule;
|
||||
use Data::Dumper;
|
||||
use C4::Context;
|
||||
|
|
@ -273,6 +273,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 BZ13502
|
||||
## Remove all entries with userid='' (should be only 1 max)
|
||||
$dbh->do(q|DELETE FROM borrowers WHERE userid = ''|);
|
||||
|
|
|
|||
Loading…
Reference in New Issue