From 9564ab37cbc23a7fbf850518194df7824dae29d9 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 20 May 2015 12:22:45 -0400 Subject: [PATCH] Bug 14238 - Unit Test to demonstrate issue --- t/Matcher.t | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/t/Matcher.t b/t/Matcher.t index 484afe0..c476cfa 100755 --- a/t/Matcher.t +++ b/t/Matcher.t @@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 10; +use Test::More tests => 11; use Test::MockModule; BEGIN { @@ -62,3 +62,5 @@ is( $testmatcher->code(), 'match on ISBN', 'testing code accessor' ); $testmatcher->description('match on ISSN'); is( $testmatcher->description(), 'match on ISSN', 'testing code accessor' ); + +is( C4::Matcher::_normalize('(OCoLC)20329436'), '(OCoLC)20329436', 'C4::Matcher::_normalize does not mangle standard OCLC fields' ); -- 1.7.2.5