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 72dd975..f1ff8da 100644 (file)
--- a/test.pl
+++ b/test.pl
@@ -50,6 +50,7 @@ sub test_card_identification{
                 '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){