trunk/t/3-normalize-isbn.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 4;

BEGIN {
        use_ok( 'WebPAC::Test' );
        use_ok( 'WebPAC::Normalize::ISBN' );
}

is_deeply(
        [ isbn_13( '1558607013', '978-1558607019' ) ],
        [ '978-1-55860-701-9', '978-1-55860-701-9', ],
'isbn_13' );

is_deeply(
        [ isbn_10( '1558607013', '978-1558607019' ) ],
        [ '1-55860-701-3', '1-55860-701-3' ],
'isbn_10' );
1	#!/usr/bin/perl -w
2
3	use strict;
4	use blib;
5
6	use Test::More tests => 4;
7
8	BEGIN {
9	use_ok( 'WebPAC::Test' );
10	use_ok( 'WebPAC::Normalize::ISBN' );
11	}
12
13	is_deeply(
14	[ isbn_13( '1558607013', '978-1558607019' ) ],
15	[ '978-1-55860-701-9', '978-1-55860-701-9', ],
16	'isbn_13' );
17
18	is_deeply(
19	[ isbn_10( '1558607013', '978-1558607019' ) ],
20	[ '1-55860-701-3', '1-55860-701-3' ],
21	'isbn_10' );