X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Ft%2Fsuite%2F14-tokenization_refund.t;h=a7d9fa8c5f48651a174398fe9b1d3487601a74d5;hp=1a0f8405e9079691085378d5c9c37d35b059c2bd;hb=5701cfb8cfe8458f2083957bc13fef15190c201c;hpb=6ebc654a3f2f82be62b16b5bec62b0dd1862e53e diff --git a/FS/t/suite/14-tokenization_refund.t b/FS/t/suite/14-tokenization_refund.t index 1a0f8405e..a7d9fa8c5 100755 --- a/FS/t/suite/14-tokenization_refund.t +++ b/FS/t/suite/14-tokenization_refund.t @@ -229,8 +229,10 @@ foreach my $voiding (0,1) { exit; sub random_card { - my $payinfo = '4111' . join('', map { int(rand(10)) } 1 .. 11); - $payinfo .= generate_last_digit($payinfo); +# my $payinfo = '4111' . join('', map { int(rand(10)) } 1 .. 11); +# $payinfo .= generate_last_digit($payinfo); +# Use AmEx for everything, to make sure cardtype gets set correctly + my $payinfo = '347594362484937'; #American Express my $paydate = DateTime->now ->add('years' => 1) ->truncate(to => 'month') @@ -239,6 +241,7 @@ sub random_card { 'payinfo' => $payinfo, 'paydate' => $paydate, 'payname' => 'Tokenize Me', + 'paycvv' => '1234', #American Express ); }