From bcedff69bcef3a887575c34f53e2c26153da61c1 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 11 Nov 2010 09:43:47 -0500 Subject: [PATCH] bug 4305: add a couple test cases for _isbn_cleanup Signed-off-by: Galen Charlton Signed-off-by: Chris Nighswonger Signed-off-by: Chris Cormack --- t/Koha.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/Koha.t b/t/Koha.t index a042f4700c..1742ddd6cf 100755 --- a/t/Koha.t +++ b/t/Koha.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 5; +use Test::More tests => 7; use_ok('C4::Koha'); @@ -19,3 +19,6 @@ is(xml_escape($undef), '', 'xml_escape() returns empty string on undef input'); my $str = q{'"&<>'}; is(xml_escape($str), ''"&<>'', 'xml_escape() works as expected'); is($str, q{'"&<>'}, '... and does not change input in place'); + +is(C4::Koha::_isbn_cleanup('0-590-35340-3'), '0590353403', '_isbn_cleanup removes hyphens'); +is(C4::Koha::_isbn_cleanup('0590353403 (pbk.)'), '0590353403', '_isbn_cleanup removes parenthetical'); -- 2.20.1