Remove dashes from card_number as well

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 13e1858..e3a21e5 100755 (executable)
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -169,7 +169,7 @@ sub to_xml {
        
        $data{MerchantNumber} = $self->merchant_id;
 
-       $data{xxxCard_Number} =~ tr/ //d;
+       $data{xxxCard_Number} =~ tr/- //d;
        $data{xxxCard_Number} =~ s/^[^3-6]/4/ if $self->test_transaction;
 
        my ($y, $m) = $self->parse_expdate($content{exp_date});
@@ -397,7 +397,7 @@ Transaction type, being one of the following:
 
 =item card_number (required)
 
-Credit card number.  Spaces are allowed, and will be automatically removed.
+Credit card number.  Spaces and dashes are automatically removed.
 
 =item exp_date (required)
 

diff --git a/t/20emit.t b/t/20emit.t
index aa9af6a..62baea7 100755 (executable)
--- a/t/20emit.t
+++ b/t/20emit.t
@@ -16,7 +16,7 @@ use constant TRANSACTIONS => (
                action          => 'Normal Authorization',
 
                type            => 'Visa',
-               card_number     => '0000000000000000',
+               card_number     => '4111 1111 1111 1111',
                exp_date        => '2004-07',
                cvv2            => '000',
 
@@ -57,8 +57,8 @@ use constant TRANSACTIONS => (
 
                action          => 'Normal Authorization',
 
-               type            => 'Visa',
-               card_number     => '4000000000000000',
+               type            => 'MasterCard',
+               card_number     => '5111-1111-1111-1111',
                exp_date        => '7/2004',
 
                name            => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
@@ -94,7 +94,7 @@ __DATA__
 <?xml version="1.0" encoding="utf-8" standalone="yes"?>
 <TranxRequest>
   <MerchantNumber>0000</MerchantNumber>
-  <xxxCard_Number>0000000000000000</xxxCard_Number>
+  <xxxCard_Number>4111111111111111</xxxCard_Number>
   <xxxCCMonth>07</xxxCCMonth>
   <xxxCCYear>2004</xxxCCYear>
   <CVV2>1</CVV2>
@@ -123,7 +123,7 @@ __DATA__
 <?xml version="1.0" encoding="utf-8" standalone="yes"?>
 <TranxRequest>
   <MerchantNumber>0000</MerchantNumber>
-  <xxxCard_Number>4000000000000000</xxxCard_Number>
+  <xxxCard_Number>5111111111111111</xxxCard_Number>
   <xxxCCMonth>07</xxxCCMonth>
   <xxxCCYear>2004</xxxCCYear>
   <CVV2>0</CVV2>