X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayflowPro.git;a=blobdiff_plain;f=t%2Fcredit_card.t;h=1ca1be762af392658f90897689b2f853dc4dfdbc;hp=e0ce71c6dd12a53e1528411934cbdc0aea43d7ec;hb=a6890d361554f119a7230efec5c59e615b1728ed;hpb=b1085869cd350b0df23fcca35dc659e0d0cc46fa 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);