view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/Vindicia/Select.pm  view on Meta::CPAN

If you would like to create your own tests, or mock your own responses you can do the following

  use Business::OnlinePayment;
  my $tx = Business::OnlinePayment->new(
     "Vindicia::Select",
     default_Origin => 'NEW', # or RECURRING
  );
  push @{$client->{'mocked'}}, {
     action => 'billTransactions', # must match the action you call, or the script will die
     login => 'mocked', # must match the login credentials used, or the script will die
     resp => 'ok_duplicate', # or you can return a HASH of the actual data you want to mock
  };

=head1 FUNCTIONS

=head2 _info

Return the introspection hash for BOP 3.x

=cut

t/SEL-001-to-SEL-005-vincida-tests.t  view on Meta::CPAN

    diag '';
    diag 'All tests are run using MOCKED return values.';
    diag 'If you wish to run REAL tests then add these ENV variables.';
    diag '';
    diag 'export PERL_BUSINESS_VINDICIA_USERNAME=your_test_user';
    diag 'export PERL_BUSINESS_VINDICIA_PASSWORD=your_test_password';
    diag '';
    diag '';
}

plan skip_all => 'No credentials set in the environment.'
  . ' Set PERL_BUSINESS_VINDICIA_USERNAME and '
  . 'PERL_BUSINESS_VINDICIA_PASSWORD to run this test.'
  unless ( $username && $password );

my $client = new_ok( use_module('Business::OnlinePayment'), ['Vindicia::Select'] );
$client->test_transaction(1);    # test, dont really charge

my $data = {
 login          => $username,
 password       => $password,