-BEGIN { $| = 1; print "1..2\n"; }
+BEGIN { $| = 1; print "1..1\n"; }
use Business::OnlinePayment;
+die "set environment variables to test: PFPRO_USER, PFPRO_VENDOR, PFPRO_PWD, ".
+ "and optionally PFPRO_PARTNER and PFPRO_CERT_PATH\n"
+ unless $ENV{'PFPRO_USER'} && $ENV{'PFPRO_VENDOR'} && $ENV{'PFPRO_PWD'};
+
my $tx = new Business::OnlinePayment("PayflowPro",
-# 'storename' => '000000',
-# 'keyfile' => '/path/to/cert.pem',
-# 'lbin' => '/path/to/lbin',
-# 'tmp' => '/path/to/secure/tempdir',
+ 'vendor' => $ENV{PFPRO_VENDOR} ,
+ 'partner' => ( $ENV{PFPRO_PARTNER} || 'verisign' ),
+ 'cert_path' => ( $ENV{PFPRO_CERT_PATH} || '.' ) ,
);
$tx->content(
type => 'VISA',
+ login => $ENV{'PFPRO_USER'},
+ password => $ENV{'PFPRO_PWD'},
action => 'Normal Authorization',
description => 'Business::OnlinePayment::PayflowPro visa test',
amount => '0.01',
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/2009',
);
$tx->test_transaction(1);