Bug 4305: Add test case for ISBN-13 to ISBN-10 conversion

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Colin Campbell 2010-11-12 07:35:46 -05:00 committed by Chris Cormack
parent 11d54188f8
commit 51eb4fa12e
1 changed files with 2 additions and 1 deletions

View File

@ -2,7 +2,7 @@
use strict;
use warnings;
use Test::More tests => 7;
use Test::More tests => 8;
use_ok('C4::Koha');
@ -22,3 +22,4 @@ 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');
is(C4::Koha::_isbn_cleanup('978-0-321-49694-2'), '0321496949', '_isbn_cleanup converts ISBN-13 to ISBN-10');