diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2017-02-01 16:31:56 -0600 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2017-02-01 17:27:39 -0600 |
| commit | bd1d715bf1d1c192c79413998b6f3e75d8252777 (patch) | |
| tree | 8a1367c9770e469b35d2d0047386c164c6e603c3 /FS/t/suite/14-tokenization_refund.t | |
| parent | b5bcd08f8966b3daeb43bc42f0c540d59cfb923b (diff) | |
71513: Card tokenization [American Express tests, v4]
Diffstat (limited to 'FS/t/suite/14-tokenization_refund.t')
| -rwxr-xr-x | FS/t/suite/14-tokenization_refund.t | 7 |
1 files changed, 5 insertions, 2 deletions
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 ); } |