my %cards = (
'3528000000000007' => 'Discover card',
'3589000000000003' => 'Discover card',
- '30000000000004' => 'Discover card',
- '30500000000003' => 'Discover card',
- '30950000000000' => 'Discover card',
+# '30000000000004' => 'Discover card',
+# '30500000000003' => 'Discover card',
+# '30950000000000' => 'Discover card',
#'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
'6220000000000008' => 'Discover card',
);
sub test_card_id_ca {
local($Business::CreditCard::Country) = 'CA';
+# my %cards = (
+# '3528000000000007' => 'Discover card',
+# '3589000000000003' => 'Discover card',
+## '30000000000004' => 'Discover card',
+## '30500000000003' => 'Discover card',
+## '30950000000000' => 'Discover card',
+# #'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
+# '6220000000000008' => 'Discover card',
+# );
my %cards = (
- '3528000000000007' => 'Discover card',
- '3589000000000003' => 'Discover card',
- '30000000000004' => 'Discover card',
- '30500000000003' => 'Discover card',
- '30950000000000' => 'Discover card',
+ '3528000000000007' => 'JCB',
+ '3589000000000003' => 'JCB',
+# '30000000000004' => 'Discover card',
+# '30500000000003' => 'Discover card',
+# '30950000000000' => 'Discover card',
#'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
- '6220000000000008' => 'Discover card',
+ '6220000000000008' => 'China Union Pay',
);
test_cards(\%cards);
}
my %cards = (
'3528000000000007' => 'JCB',
'3589000000000003' => 'JCB',
- '30000000000004' => 'Discover card',
- '30500000000003' => 'Discover card',
- '30950000000000' => 'Discover card',
+# '30000000000004' => 'Discover card',
+# '30500000000003' => 'Discover card',
+# '30950000000000' => 'Discover card',
#'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
'6220000000000008' => 'Discover card',
);
my %cards = (
'3528000000000007' => 'JCB',
'3589000000000003' => 'JCB',
- '30000000000004' => 'Discover card',
- '30500000000003' => 'Discover card',
- '30950000000000' => 'Discover card',
+# '30000000000004' => 'Discover card',
+# '30500000000003' => 'Discover card',
+# '30950000000000' => 'Discover card',
#'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
'6220000000000008' => 'China Union Pay',
);
my %cards = (
'3528000000000007' => 'JCB',
'3589000000000003' => 'JCB',
- '30000000000004' => 'Discover card',
- '30500000000003' => 'Discover card',
- '30950000000000' => 'Discover card',
+# '30000000000004' => 'Discover card',
+# '30500000000003' => 'Discover card',
+# '30950000000000' => 'Discover card',
#'6200000000000005' => 'Discover card', #is 620 a valid CUP now?
#XXX this is technically an issue ("base" for CUP is still CUP)