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   test_cards(\%cards);
  53 }
  54
  55 #"all other countries"
  56 sub test_card_id_mx {
  57   local($Business::CreditCard::Country) = 'MX';
  58
  59   my %cards = (
  60   '3528000000000007' => 'JCB',
  61   '3589000000000003' => 'JCB',
  62   '30000000000004'   => 'Discover card',
  63   '30500000000003'   => 'Discover card',
  64   '30950000000000'   => 'Discover card',
  65   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  66   '6220000000000008' => 'Discover card',
  67   );
  68   test_cards(\%cards);
  69 }
  70
  71 sub test_card_id_cn {
  72   local($Business::CreditCard::Country) = 'CN';
  73
  74   my %cards = (
  75   '3528000000000007' => 'JCB',
  76   '3589000000000003' => 'JCB',
  77   '30000000000004'   => 'Discover card',
  78   '30500000000003'   => 'Discover card',
  79   '30950000000000'   => 'Discover card',
  80   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  81   '6220000000000008' => 'China Union Pay',
  82   );
  83   test_cards(\%cards);
  84 }
  85
  86 sub test_card_id_base {
  87   local($Business::CreditCard::Country) = '';
  88
  89   my %cards = (
  90   '3528000000000007' => 'JCB',
  91   '3589000000000003' => 'JCB',
  92   '30000000000004'   => 'Discover card',
  93   '30500000000003'   => 'Discover card',
  94   '30950000000000'   => 'Discover card',
  95   #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
  96
  97   #XXX this is technically an issue ("base" for CUP is still CUP)
  98   ##'6220000000000008' => 'China Union Pay', #but module will say "Discover card"
  99
 100   );
 101   test_cards(\%cards);
 102 }