#!/usr/bin/perl -w
my
%isbn
= (
'098765432X'
=> {
ean13
=>
'9780987654328'
,
isbn10
=>
'0987654322'
},
'0987654322'
=> {
ean13
=>
'9780987654328'
,
isbn10
=>
'0987654322'
},
'0987654321'
=> {
ean13
=>
'9780987654328'
,
isbn10
=>
'0987654322'
},
'0571239560'
=> {
ean13
=>
'9780571239566'
,
isbn10
=>
'0571239560'
},
'9780571239566'
=> {
ean13
=>
'9780571239566'
,
isbn10
=>
'0571239560'
},
'9780571239567'
=> {
ean13
=>
'9780571239566'
,
isbn10
=>
'0571239560'
},
'978057123956'
=> {
ean13
=>
undef
,
isbn10
=>
undef
},
);
my
$driver
= WWW::Scraper::ISBN::BarnesNoble_Driver->new();
for
my
$isbn
(
keys
%isbn
) {
is(
$driver
->convert_to_ean13(
$isbn
),
$isbn
{
$isbn
}{ean13} ,
".. isbn 13 convert for $isbn"
);
is(
$driver
->convert_to_isbn10(
$isbn
),
$isbn
{
$isbn
}{isbn10},
".. isbn 10 convert for $isbn"
);
}