view release on metacpan or  search on metacpan

t/integration/configuration.t  view on Meta::CPAN

use lib qw(lib t/lib);
use Test::More;
use Net::Braintree;
use Net::Braintree::TestHelper;

subtest "default integration configuration" => sub {
  my $config = Net::Braintree->configuration;
  $config->environment("integration");

  my $result = Net::Braintree::Transaction->sale({
    amount => "10.00",
    credit_card => {
      number => "5431111111111111",
      expiration_date => "05/12"
  }});

  ok $result->is_success;
  is $result->transaction->amount, "10.00";
};

subtest "configuration two" => sub {
  Net::Braintree->configuration->environment("integration");

  my $result = Net::Braintree::Transaction->sale({
    amount => "10.00",
    credit_card => {
      number => "5431111111111111",
      expiration_date => "05/12"
  }});

  ok $result->is_success;
  is $result->transaction->amount, "10.00";

  my $config = Net::Braintree::Configuration->new;
  $config->environment("integration");
  $config->public_key("it_should_explode");
  $config->private_key("with_these_values");
  my $gateway = $config->gateway;

  should_throw("AuthenticationError", sub { $gateway->transaction->create({type => "sale", amount => "10.00"}) });
};

done_testing();