From b86a140d7593a2e5b9f123edd13cff5ead1e98d9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 30 Dec 2014 09:51:32 +0100 Subject: [PATCH] Bug 1861: Add 1 test to AddMember Signed-off-by: Jonathan Druart --- t/db_dependent/Members.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index cfbb4d8..f79e3f8 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -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)'); -- 2.1.0