diff options
| author | ivan <ivan> | 2006-10-11 11:01:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-10-11 11:01:42 +0000 |
| commit | 4e8b625bd70a0a118bc0c2e329e1e9491a0171ca (patch) | |
| tree | 6e63e8b07ea517bf7072a1e0a603390d88adb9b2 /t/bad_auth.t | |
| parent | 0c7b01010edc4223bdf74649592731e8268e708c (diff) | |
Diffstat (limited to 't/bad_auth.t')
| -rw-r--r-- | t/bad_auth.t | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/t/bad_auth.t b/t/bad_auth.t index 2ed6e69..40db574 100644 --- a/t/bad_auth.t +++ b/t/bad_auth.t @@ -2,16 +2,20 @@ 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", - #'vendor' => 'your_vendor', - 'partner' => 'verisign', - 'cert_path' => '/home/ivan/Business-OnlinePayment-PayflowPro.docs/verisign/payflowpro/linux/certs/', + 'vendor' => $ENV{PFPRO_VENDOR} , + 'partner' => ( $ENV{PFPRO_PARTNER} || 'verisign' ), + 'cert_path' => ( $ENV{PFPRO_CERT_PATH} || '.' ) , ); $tx->content( type => 'VISA', - login => 'test231', - password => '231test', + login => $ENV{'PFPRO_USER'}, + password => $ENV{'PFPRO_PWD'}, action => 'Normal Authorization', description => 'Business::OnlinePayment::PayflowPro visa test', amount => '0.01', @@ -26,7 +30,7 @@ $tx->content( #card_number => '4007000000027', #card_number => '4111111111111111', card_number => '4111111111111112', - expiration => '12/2004', + expiration => '12/2009', ); $tx->test_transaction(1); |