t/bad_auth.t

   1 BEGIN { $| = 1; print "1..1\n"; }
   2
   3 use Business::OnlinePayment;
   4
   5 die "set environment variables to test: PFPRO_USER, PFPRO_VENDOR, PFPRO_PWD, ".
   6     "and optionally PFPRO_PARTNER and PFPRO_CERT_PATH\n"
   7   unless $ENV{'PFPRO_USER'} && $ENV{'PFPRO_VENDOR'} && $ENV{'PFPRO_PWD'};
   8
   9 my $tx = new Business::OnlinePayment("PayflowPro",
  10     'vendor'    => $ENV{PFPRO_VENDOR} ,
  11     'partner'   => ( $ENV{PFPRO_PARTNER} || 'verisign' ),
  12     'cert_path' => ( $ENV{PFPRO_CERT_PATH} || '.' ) ,
  13 );
  14
  15 $tx->content(
  16     type           => 'VISA',
  17     login          => $ENV{'PFPRO_USER'},
  18     password       => $ENV{'PFPRO_PWD'},
  19     action         => 'Normal Authorization',
  20     description    => 'Business::OnlinePayment::PayflowPro visa test',
  21     amount         => '0.01',
  22     first_name     => 'Tofu',
  23     last_name      => 'Beast',
  24     address        => '123 Anystreet',
  25     city           => 'Anywhere',
  26     state          => 'UT',
  27     zip            => '84058',
  28     country        => 'US',
  29     email          => 'ivan-payflowpro@420.am',
  30     #card_number    => '4007000000027',
  31     #card_number    => '4111111111111111',
  32     card_number    => '4111111111111112',
  33     expiration     => '12/2009',
  34 );
  35
  36 $tx->test_transaction(1);
  37
  38 $tx->submit();
  39
  40 if($tx->is_success()) {
  41     print "not ok 1\n";
  42     $auth = $tx->authorization;
  43     warn "********* $auth ***********\n";
  44 } else {
  45     print "ok 1\n";
  46     warn '***** '. $tx->error_message. " *****\n";
  47     exit;
  48 }
  49