8 use Business::OnlinePayment;
10 $Data::Dumper::Sortkeys = 1;
11 $Data::Dumper::Indent = 1;
13 my $merchant_id = $ENV{BAMBORA_MERCHANT_ID};
14 my $api_key = $ENV{BAMBORA_API_KEY};
17 skip 'Missing env vars BAMBORA_MERCHANT_ID and BAMBORA_API_KEY', 6
18 unless $merchant_id && $api_key;
21 # Attempt with invalid action name
28 login => $merchant_id,
31 action => 'Norml Authorzatin',
35 my ( $tr_fail, $response_fail ) = make_api_request( \%content_fail );
40 [qw/ error_message /],
43 ok( $tr_fail->error_message =~ /action is unsupported/i,
44 'Saw expected error_message'