view release on metacpan or  search on metacpan

t/isbn13.t  view on Meta::CPAN

		tests => 4,
#		todo => [3],
	); 
};
use Algorithm::CheckDigits;

my $isbn13 = CheckDigits('isbn13');
my $ean    = CheckDigits('ean');

my $isbn_number             = "9783492233163";
my $ean_but_not_isbn_number = "7622200004607";

ok($isbn13->is_valid($isbn_number),1, "valid ISBN");
ok($ean->is_valid(   $isbn_number),1, "valid EAN");

ok($isbn13->is_valid($ean_but_not_isbn_number),'', "valid EAN but not ISBN");
ok($ean->is_valid(   $ean_but_not_isbn_number),1, "valid EAN");