- 19 digit Visa and Discover cards

[Business-CreditCard.git] / t / agreements.t

diff --git a/t/agreements.t b/t/agreements.t
index ad146fb..598d715 100644 (file)
--- a/t/agreements.t
+++ b/t/agreements.t
@@ -15,9 +15,9 @@ sub test_card_id_us {
   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',
   );
@@ -40,14 +40,23 @@ sub test_cards {
 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);
 }
@@ -59,9 +68,9 @@ sub test_card_id_mx {
   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',
   );
@@ -74,9 +83,9 @@ sub test_card_id_cn {
   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',
   );
@@ -89,9 +98,9 @@ sub test_card_id_base {
   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)