diff options
Diffstat (limited to 't/credit_card.t')
| -rw-r--r-- | t/credit_card.t | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/t/credit_card.t b/t/credit_card.t index e0ce71c..1ca1be7 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -1,16 +1,17 @@ -BEGIN { $| = 1; print "1..2\n"; } +BEGIN { $| = 1; print "1..1\n"; } use Business::OnlinePayment; my $tx = new Business::OnlinePayment("PayflowPro", -# 'storename' => '000000', -# 'keyfile' => '/path/to/cert.pem', -# 'lbin' => '/path/to/lbin', -# 'tmp' => '/path/to/secure/tempdir', + #'vendor' => 'your_vendor', + 'partner' => 'verisign', + 'cert_path' => '/home/ivan/Business-OnlinePayment-PayflowPro.docs/verisign/payflowpro/linux/certs/', ); $tx->content( type => 'VISA', + login => 'test231', + password => '231test', action => 'Normal Authorization', description => 'Business::OnlinePayment::PayflowPro visa test', amount => '0.01', @@ -22,8 +23,9 @@ $tx->content( zip => '84058', country => 'US', email => 'ivan-payflowpro@420.am', - card_number => '4007000000027', - expiration => '12/2003', + #card_number => '4007000000027', + card_number => '4111111111111111', + expiration => '12/2004', ); $tx->test_transaction(1); |