t/validation.t

   1
   2 use Test::More tests => 1;
   3 use Business::CreditCard;
   4
   5 ok( test_card_validation() );
   6
   7 sub test_card_validation {
   8         my %test_table=(
   9                 '10830529'  => 'Isracard',
  10                 '010830529' => 'Isracard',
  11         );
  12         while( my ($k, $v)=each(%test_table) ){
  13                 if(!validate($k)){
  14                         warn "Card $k - should be a valid $v but validation failed\n";
  15                         return;
  16                 }
  17         }
  18         return 1;
  19 }
  20