projects
/
Business-CreditCard.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Irish Laser card, thanks to Eoin Redmond for the heads-up
[Business-CreditCard.git]
/
test.pl
diff --git
a/test.pl
b/test.pl
index
f96a1d2
..
f1ff8da
100644
(file)
--- a/
test.pl
+++ b/
test.pl
@@
-36,7
+36,8
@@
sub test_card_identification{
'371234567890123' => 'American Express card',
'30112345678901' => "Diner's Club/Carte Blanche",
'30512345678901' => "Diner's Club/Carte Blanche",
'371234567890123' => 'American Express card',
'30112345678901' => "Diner's Club/Carte Blanche",
'30512345678901' => "Diner's Club/Carte Blanche",
- '36123456789012' => "Diner's Club/Carte Blanche",
+ #'36123456789012' => "Diner's Club/Carte Blanche",
+ '36123456789012' => 'MasterCard',
'38123456789012' => "Diner's Club/Carte Blanche",
'201412345678901' => 'enRoute',
'214912345678901' => 'enRoute',
'38123456789012' => "Diner's Club/Carte Blanche",
'201412345678901' => 'enRoute',
'214912345678901' => 'enRoute',
@@
-46,6
+47,10
@@
sub test_card_identification{
'180012345678901' => 'JCB',
'1800123456789012' => 'Unknown',
'312345678901234' => 'Unknown',
'180012345678901' => 'JCB',
'1800123456789012' => 'Unknown',
'312345678901234' => 'Unknown',
+ '4111xxxxxxxxxxxx' => 'VISA card',
+ '6599xxxxxxxxxxxx' => 'Discover card',
+ '6222xxxxxxxxxxxx' => 'Discover card', #China Union Pay
+ '6304980000000000004' => 'Laser',
);
while( my ($k, $v)=each(%test_table) ){
if(cardtype($k) ne $v){
);
while( my ($k, $v)=each(%test_table) ){
if(cardtype($k) ne $v){