t/051-tokenize-fail.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5
   6 use lib 't';
   7 use TestFixtures;
   8 use Business::OnlinePayment;
   9 use Data::Dumper;
  10     $Data::Dumper::Sortkeys = 1;
  11     $Data::Dumper::Indent = 1;
  12
  13 my $merchant_id = $ENV{BAMBORA_MERCHANT_ID};
  14 my $api_key     = $ENV{BAMBORA_API_KEY};
  15
  16 SKIP: {
  17   skip 'Missing env vars BAMBORA_MERCHANT_ID and BAMBORA_API_KEY', 36
  18     unless $merchant_id && $api_key;
  19
  20   #
  21   # Attempt charge with a normal credit card number as card_token
  22   # Expect fail
  23   #
  24
  25   my %content_fail = (
  26     login => $merchant_id,
  27     password => $api_key,
  28
  29     action => 'Normal Authorization',
  30     card_token => '4242424242424242',
  31     amount => '24.95',
  32   );
  33
  34   my ( $tr_fail, $response_fail ) = make_api_request( \%content_fail );
  35
  36   inspect_transaction(
  37     $tr_fail,
  38     { is_success => 0 },
  39     [qw/ error_message /],
  40   );
  41
  42   ok( $tr_fail->error_message =~ /invalid card_token/i,
  43       'Saw expected error_message'
  44   );
  45 }
  46
  47 done_testing;