From da51c004964ae3b83f1878e3eb523981995773e9 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Wed, 22 Mar 2017 13:54:46 +0000
Subject: [PATCH] Bug 12026: [Rebase Follow-up] - Fix Test

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Olli-Antti Kivilahti <olli-antti.kivilahti@jns.fi>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 C4/Auth_with_shibboleth.pm | 2 +-
 t/Auth_with_shibboleth.t   | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm
index 1c996a2434..4e7c0f0b9e 100644
--- a/C4/Auth_with_shibboleth.pm
+++ b/C4/Auth_with_shibboleth.pm
@@ -116,7 +116,7 @@ sub checkpw_shib {
 sub _autocreate {
     my ( $config, $match ) = @_;
 
-    my %borrower = ( shibbolethMatchField => $match );
+    my %borrower = ( $config->{matchpoint} => $match );
 
     while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) {
         $borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || '';
diff --git a/t/Auth_with_shibboleth.t b/t/Auth_with_shibboleth.t
index 5f24cd28ad..7ce3b47698 100644
--- a/t/Auth_with_shibboleth.t
+++ b/t/Auth_with_shibboleth.t
@@ -97,7 +97,8 @@ sub reset_config {
 ##############################################################
 
 # Can module load
-use_ok('C4::Auth_with_shibboleth');
+use C4::Auth_with_shibboleth;
+require_ok('C4::Auth_with_shibboleth');
 $C4::Auth_with_shibboleth::debug = '0';
 
 # Subroutine tests
-- 
2.39.5