projects
/
Business-CreditCard.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f3c4c90
)
test discover card 3056 prefix per rt.cpan.org #125910
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 23 Jul 2018 21:27:48 +0000
(14:27 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 23 Jul 2018 21:27:48 +0000
(14:27 -0700)
t/test.t
patch
|
blob
|
history
diff --git
a/t/test.t
b/t/test.t
index
6bd1f5b
..
18f5b25
100644
(file)
--- a/
t/test.t
+++ b/
t/test.t
@@
-41,6
+41,8
@@
sub test_card_identification {
'12345678' => 'Isracard',
'123456780' => 'Isracard',
'60xx xxxx xxxx xxxx' => 'Discover card', #discover w/2 digits
'12345678' => 'Isracard',
'123456780' => 'Isracard',
'60xx xxxx xxxx xxxx' => 'Discover card', #discover w/2 digits
+ '3056xxxxxxxxxxxx' => 'Discover card',
+ '3056111111111110' => 'Discover card',
);
while( my ($k, $v)=each(%test_table) ){
if(cardtype($k) ne $v){
);
while( my ($k, $v)=each(%test_table) ){
if(cardtype($k) ne $v){