X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-CreditCard.git;a=blobdiff_plain;f=test.pl;h=f1ff8da4b1f0e0464c85f585517be1b6c8a5adbc;hp=72dd9752450799a877d6b9386d12f788857f6fa7;hb=d27fd82bcafba39c54c9354fe3fd9a18506d5d3d;hpb=91c6e54e35be6cd7d6c9afa7353604e8d108eb40

diff --git a/test.pl b/test.pl
index 72dd975..f1ff8da 100644
--- 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){