t/051-tokenize-fail.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use lib 't';
use TestFixtures;
use Business::OnlinePayment;
use Data::Dumper;
    $Data::Dumper::Sortkeys = 1;
    $Data::Dumper::Indent = 1;

my $merchant_id = $ENV{BAMBORA_MERCHANT_ID};
my $api_key     = $ENV{BAMBORA_API_KEY};

SKIP: {
  skip 'Missing env vars BAMBORA_MERCHANT_ID and BAMBORA_API_KEY', 36
    unless $merchant_id && $api_key;

  #
  # Attempt charge with a normal credit card number as card_token
  # Expect fail
  #

  my %content_fail = (
    login => $merchant_id,
    password => $api_key,

    action => 'Normal Authorization',
    card_token => '4242424242424242',
    amount => '24.95',
  );

  my ( $tr_fail, $response_fail ) = make_api_request( \%content_fail );

  inspect_transaction(
    $tr_fail,
    { is_success => 0 },
    [qw/ error_message /],
  );

  ok( $tr_fail->error_message =~ /invalid card_token/i,
      'Saw expected error_message'
  );
}

done_testing;