From 13edcab0b776d1c963b2307c06a26669ee96ef52 Mon Sep 17 00:00:00 2001
From: fbriere <fbriere>
Date: Thu, 16 Feb 2006 23:19:33 +0000
Subject: [PATCH] Ensure a valid card number for test transactions

---
 InternetSecure.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/InternetSecure.pm b/InternetSecure.pm
index e3855cf..a2c7fab 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -184,6 +184,7 @@ sub to_xml {
 	$data{MerchantNumber} = $self->merchant_id;
 
 	$data{xxxCard_Number} =~ tr/ //d;
+	$data{xxxCard_Number} =~ s/^[0-36-9]/4/ if $self->test_transaction;
 
 	my ($y, $m) = $self->parse_expdate($content{exp_date});
 	$data{xxxCCYear} = sprintf '%.4u' => $y;
-- 
2.11.0