@@ -, +, @@ update userid --- t/db_dependent/Members.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) --- a/t/db_dependent/Members.t +++ a/t/db_dependent/Members.t @@ -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', --