From f53c60f05e8b6490cf08e830839d599ea6e7ac65 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 3 May 2016 08:58:26 +0100 Subject: [PATCH] [PASSED QA] Bug 16426: Add tests for ModMember - do not update userid Signed-off-by: Nick Clemens Signed-off-by: Katrin Fischer --- t/db_dependent/Members.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index 90e6536..797e9bc 100755 --- a/t/db_dependent/Members.t +++ b/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', -- 1.9.1