0.04

[Business-OnlinePayment-PayflowPro.git] / t / credit_card.t

diff --git a/t/credit_card.t b/t/credit_card.t
index 1ca1be7..6ba927d 100644 (file)
--- a/t/credit_card.t
+++ b/t/credit_card.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',
@@ -25,7 +29,7 @@ $tx->content(
     email          => 'ivan-payflowpro@420.am',
     #card_number    => '4007000000027',
     card_number    => '4111111111111111',
-    expiration     => '12/2004',
+    expiration     => '12/2009',
 );
 
 $tx->test_transaction(1);