use strict;
use warnings;
use lib "blib/lib";
#use Locale::Country;
#my $cc = country2code('Germany');
use Test::More tests => 4;
my $cc = "DE";
BEGIN {
use_ok('Business::IBAN');
}
my $iban = Business::IBAN->new();
my $ib = $iban->getIBAN(
{
ISO => $cc,
BIC => "36020041",
AC => "12345678",
}
);
ok($ib, "generate IBAN");
my $valid = $iban->valid($ib);
ok($valid, "valid $ib");
$ib = "IBAN DE54360200410012345678";
$valid = $iban->valid($ib);
ok(!$valid, "not valid $ib");