blob: 7c4f08a3d10c194a15620fbe9e9a9d934cd253e0 (
plain)
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
48
|
#!/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', 6
unless $merchant_id && $api_key;
#
# Attempt with invalid action name
# Expect fail
#
my %content_fail = (
common_content(),
login => $merchant_id,
password => $api_key,
action => 'Norml Authorzatin',
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 =~ /action is unsupported/i,
'Saw expected error_message'
);
}
done_testing;
|
