diff options
Diffstat (limited to 't/bad_auth.t')
| -rw-r--r-- | t/bad_auth.t | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/t/bad_auth.t b/t/bad_auth.t index e0db291..2ed6e69 100644 --- a/t/bad_auth.t +++ b/t/bad_auth.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,9 +23,10 @@ $tx->content( zip => '84058', country => 'US', email => 'ivan-payflowpro@420.am', - card_number => '4007000000027', - expiration => '12/2002', -# result => 'DECLINE', + #card_number => '4007000000027', + #card_number => '4111111111111111', + card_number => '4111111111111112', + expiration => '12/2004', ); $tx->test_transaction(1); |