From b86a140d7593a2e5b9f123edd13cff5ead1e98d9 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Tue, 30 Dec 2014 09:51:32 +0100
Subject: [PATCH] Bug 1861: Add 1 test to AddMember

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
---
 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