From fb8f222b0ffa2fdc6c398546e8bc1daa50b202dc 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 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/Matcher.t b/t/Matcher.t index 652f061..a20ec91 100755 --- a/t/Matcher.t +++ b/t/Matcher.t @@ -24,7 +24,7 @@ use Module::Load::Conditional qw/check_install/; BEGIN { if ( check_install( module => 'Test::DBIx::Class' ) ) { - plan tests => 11; + plan tests => 12; } else { plan skip_all => "Need Test::DBIx::Class" } @@ -82,4 +82,6 @@ $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; -- 2.1.4