view release on metacpan or  search on metacpan

t/transaction.t  view on Meta::CPAN

use strict;
use warnings;
use POSIX qw(strftime);
use Test::More;
use Business::OnlinePayment;

my $login = $ENV{BOP_TEST_LOGIN};
my $password = $ENV{BOP_TEST_PASSWORD};
if (!$login) {
  plan skip_all => "no test credentials provided; set BOP_TEST_LOGIN and BOP_TEST_PASSWORD to test communication with the gateway.",
  1;
  exit(0);
}

plan tests => 2;

###
# Purchase
###
my %content = (

t/transaction_decline.t  view on Meta::CPAN

use strict;
use warnings;
use POSIX qw(strftime);
use Test::More;
use Business::OnlinePayment;

my $login = $ENV{BOP_TEST_LOGIN};
my $password = $ENV{BOP_TEST_PASSWORD};
if (!$login) {
  plan skip_all => "no test credentials provided; set BOP_TEST_LOGIN and BOP_TEST_PASSWORD to test communication with the gateway.",
  1;
  exit(0);
}

plan tests => 2;
my %content = (
  login    => $login,
  password => $password,
  action         => "Normal Authorization",
  type           => "CC",