3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 347; |
use Test::More tests => 351; |
7 |
|
|
8 |
BEGIN { |
BEGIN { |
9 |
use_ok( 'WebPAC::Test' ); |
use_ok( 'WebPAC::Test' ); |
849 |
["000", "0 5 A"] |
["000", "0 5 A"] |
850 |
] |
] |
851 |
); |
); |
852 |
|
|
853 |
|
test_s(qq{ isbn_13( '1558607013', '978-1558607019' ) }); |
854 |
|
test_s(qq{ isbn_10( '1558607013', '978-1558607019' ) }); |
855 |
|
|
856 |
|
is_deeply( |
857 |
|
[ isbn_13( '1558607013', '978-1558607019' ) ], |
858 |
|
[ '978-1-55860-701-9', '978-1-55860-701-9', ], |
859 |
|
'isbn_13' ); |
860 |
|
|
861 |
|
is_deeply( |
862 |
|
[ isbn_10( '1558607013', '978-1558607019' ) ], |
863 |
|
[ '1-55860-701-3', '1-55860-701-3' ], |
864 |
|
'isbn_10' ); |
865 |
|
|
866 |
} |
} |
867 |
|
|