diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/022-payments-card-authorization_only.t | 107 | ||||
| -rw-r--r-- | t/022-payments-card-pre-authorization.t | 122 |
2 files changed, 122 insertions, 107 deletions
diff --git a/t/022-payments-card-authorization_only.t b/t/022-payments-card-authorization_only.t deleted file mode 100755 index c95bdb8..0000000 --- a/t/022-payments-card-authorization_only.t +++ /dev/null @@ -1,107 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -use lib 't'; -require 'TestFixtures.pm'; -use Business::OnlinePayment; - -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', 78 - unless $merchant_id && $api_key; - - my %content = ( - login => $merchant_id, - password => $api_key, - action => 'Normal Authorization', - amount => '9.99', - - owner => 'Freeside Internet Services', - name => 'Mitch Jackson', - address => '1407 Graymalkin Lane', - city => 'Vancouver', - state => 'BC', - zip => '111 111', - country => 'CA', - - card_number => '4242424242424242', - cvv2 => '111', - expiration => '1122', - phone => '251-300-1300', - email => 'mitch@freeside.biz', - ); - - # Test approved card numbers, - # ref: https://dev.na.bambora.com/docs/references/payment_APIs/test_cards/ - my %approved_cards = ( - visa => { card => '4030000010001234', cvv2 => '123' }, - mastercard => { card => '5100000010001004', cvv2 => '123' }, - mastercard2 => { card => '2223000048400011', cvv2 => '123' }, - amex => { card => '371100001000131', cvv2 => '1234' }, - visa => { card => '4030000010001234', cvv2 => '123' }, - discover => { card => '6011500080009080', cvv2 => '123' }, - ); - - for my $name ( keys %approved_cards ) { - $content{card_number} = $approved_cards{$name}->{card}; - $content{cvv2} = $approved_cards{$name}->{cvv2}; - - my $tr; - ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' ); - ok( $tr->content( %content ), 'Set transaction content onto $tr' ); - { - local $@; - eval { $tr->submit }; - ok( !$@, "$name Process transaction (expect approve)" ); - } - - for my $attr (qw/ - message_id - authorization - order_number - txn_date - avs_code - is_success - /) { - ok( - defined $tr->$attr(), - sprintf '%s $tr->%s() = %s', - $name, - $attr, - $tr->$attr() - ); - } - } - - # Test declined card numbers, - # ref: https://dev.na.bambora.com/docs/references/payment_APIs/test_cards/ - my %decline_cards = ( - visa => { card => '4003050500040005', cvv2 => '123' }, - mastercard => { card => '5100000020002000', cvv2 => '123' }, - amex => { card => '342400001000180', cvv2 => '1234' }, - discover => { card => '6011000900901111', cvv2 => '123' }, - ); - for my $name ( keys %decline_cards ) { - $content{card_number} = $decline_cards{$name}->{card}; - $content{cvv2} = $decline_cards{$name}->{cvv2}; - - my $tr; - ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr' ); - ok( $tr->content( %content ), 'Set transaction content onto $tr' ); - { - local $@; - eval { $tr->submit }; - ok( !$@, "$name: Process transaction (expect decline)" ); - } - - ok( $tr->is_success == 0, '$tr->is_success == 0' ); - ok( $tr->result_code != 1, '$tr->result_code != 1' ); - ok( $tr->error_message, '$tr->error_message: '.$tr->error_message ); - } -} - -done_testing;
\ No newline at end of file diff --git a/t/022-payments-card-pre-authorization.t b/t/022-payments-card-pre-authorization.t new file mode 100644 index 0000000..acceee5 --- /dev/null +++ b/t/022-payments-card-pre-authorization.t @@ -0,0 +1,122 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use lib 't'; +require 'TestFixtures.pm'; +use Business::OnlinePayment; + +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', 3 + unless $merchant_id && $api_key; + + my %content = ( + login => $merchant_id, + password => $api_key, + action => 'Authorization Only', + amount => '9.99', + + owner => 'Freeside Internet Services', + name => 'Mitch Jackson', + address => '1407 Graymalkin Lane', + city => 'Vancouver', + state => 'BC', + zip => '111 111', + country => 'CA', + + invoice_number => time(), + card_number => '4030000010001234', + cvv2 => '123', + expiration => '1122', + phone => '251-300-1300', + email => 'mitch@freeside.biz', + ); + + my $tr; + ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' ); + ok( $tr->content( %content ), 'Set transaction content onto $tr' ); + { + local $@; + eval { $tr->submit }; + ok( !$@, "Submit pre-auth (expect approve)" ); + } + + my $response; + my %expect = ( + amount => '9.99', + approved => 1, + auth_code => 'TEST', + message => 'Approved', + message_id => 1, + payment_method => 'CC', + type => 'PA', + ); + my @expect = qw( + card + created + order_number + risk_score + ); + + ok( $response = $tr->response_decoded, 'response_decoded' ); + + for my $k ( keys %expect ) { + ok( + $response->{$k} eq $expect{$k}, + sprintf '$tr->%s == %s', $k, $expect{$k} + ); + } + + for my $k ( @expect ) { + ok( + defined $response->{$k}, + sprintf '$r->%s (%s)', + $k, $response->{$k} + ); + } + + %content = ( + %content, + action => 'post authorization', + order_number => $tr->order_number, + ); + + my $tr_pa; + ok( $tr_pa = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr_pa' ); + ok( $tr->content( %content ), 'Set transaction content onto $tr_pa' ); + { + local $@; + eval { $tr_pa->submit }; + ok( !$@, "Submit post-auth" ); + warn "Error: $@" if $@; + } + + my $response_pa; + + + ok( $response_pa = $tr_pa->response_decoded, 'response_decoded' ); + + # for my $attr (qw/ + # message_id + # authorization + # order_number + # txn_date + # avs_code + # is_success + # /) { + # ok( + # defined $tr->$attr(), + # sprintf '%s $tr->%s() = %s', + # $name, + # $attr, + # $tr->$attr() + # ); + # } + +} + +done_testing;
\ No newline at end of file |