2 use Test::More tests => 1;
3 use Business::CreditCard;
5 ok( test_card_validation() );
7 sub test_card_validation {
9 '10830529' => 'Isracard',
10 '010830529' => 'Isracard',
12 while( my ($k, $v)=each(%test_table) ){
14 warn "Card $k - should be a valid $v but validation failed\n";