t/agreements.t

   1 use Test::More tests => 5;
   2 use Business::CreditCard;
   3
   4 #w
   5
   6 ok ( test_card_id_us() );
   7 ok ( test_card_id_ca() );
   8 ok ( test_card_id_mx() );
   9 ok ( test_card_id_cn() );
  10 ok ( test_card_id_base() );
  11
  12 sub test_card_id_us {
  13   local($Business::CreditCard::Country) = 'US';
  14
  15   my %cards = (
  16   '3528000000000007' => 'Discover card',
  17   '3589000000000003' => 'Discover card',
  18 #  '30000000000004'   => 'Discover card',
  19 #  '30500000000003'   => 'Discover card',
  20 #  '30950000000000'   => 'Discover card',
  21   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  22   '6220000000000008' => 'Discover card',
  23   );
  24
  25   test_cards(\%cards);
  26 }
  27
  28 sub test_cards {
  29   my $cards = shift;
  30   while( my ($k, $v)=each(%$cards) ){
  31     if(cardtype($k) ne $v){
  32       warn "Card $k - should be $v for $Business::CreditCard::Country ".
  33            " but cardtype returns ". cardtype($k). "\n";
  34       return;
  35     }
  36   }
  37   return 1;
  38 }
  39
  40 sub test_card_id_ca {
  41   local($Business::CreditCard::Country) = 'CA';
  42
  43 #  my %cards = (
  44 #  '3528000000000007' => 'Discover card',
  45 #  '3589000000000003' => 'Discover card',
  46 ##  '30000000000004'   => 'Discover card',
  47 ##  '30500000000003'   => 'Discover card',
  48 ##  '30950000000000'   => 'Discover card',
  49 #  #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  50 #  '6220000000000008' => 'Discover card',
  51 #  );
  52   my %cards = (
  53   '3528000000000007' => 'JCB',
  54   '3589000000000003' => 'JCB',
  55 #  '30000000000004'   => 'Discover card',
  56 #  '30500000000003'   => 'Discover card',
  57 #  '30950000000000'   => 'Discover card',
  58   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  59   '6220000000000008' => 'China Union Pay',
  60   );
  61   test_cards(\%cards);
  62 }
  63
  64 #"all other countries"
  65 sub test_card_id_mx {
  66   local($Business::CreditCard::Country) = 'MX';
  67
  68   my %cards = (
  69   '3528000000000007' => 'JCB',
  70   '3589000000000003' => 'JCB',
  71 #  '30000000000004'   => 'Discover card',
  72 #  '30500000000003'   => 'Discover card',
  73 #  '30950000000000'   => 'Discover card',
  74   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  75   '6220000000000008' => 'Discover card',
  76   );
  77   test_cards(\%cards);
  78 }
  79
  80 sub test_card_id_cn {
  81   local($Business::CreditCard::Country) = 'CN';
  82
  83   my %cards = (
  84   '3528000000000007' => 'JCB',
  85   '3589000000000003' => 'JCB',
  86 #  '30000000000004'   => 'Discover card',
  87 #  '30500000000003'   => 'Discover card',
  88 #  '30950000000000'   => 'Discover card',
  89   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  90   '6220000000000008' => 'China Union Pay',
  91   );
  92   test_cards(\%cards);
  93 }
  94
  95 sub test_card_id_base {
  96   local($Business::CreditCard::Country) = '';
  97
  98   my %cards = (
  99   '3528000000000007' => 'JCB',
 100   '3589000000000003' => 'JCB',
 101 #  '30000000000004'   => 'Discover card',
 102 #  '30500000000003'   => 'Discover card',
 103 #  '30950000000000'   => 'Discover card',
 104   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
 105
 106   #XXX this is technically an issue ("base" for CUP is still CUP)
 107   ##'6220000000000008' => 'China Union Pay', #but module will say "Discover card"
 108
 109   );
 110   test_cards(\%cards);
 111 }