From 24c86c6b9136ad878a118d57fc9b876eee3672f8 Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Sun, 21 Apr 2019 21:58:05 -0400 Subject: Implement payment profile creation --- t/021-generate_token.t | 15 ++ t/021-payments-card-normal_authorization.t | 107 ------------- ...payments-card-pre-authorization-complete-void.t | 172 --------------------- t/031-payments-card-normal_authorization.t | 107 +++++++++++++ ...payments-card-pre-authorization-complete-void.t | 172 +++++++++++++++++++++ t/041-tokenize-card.t | 82 ++++++++++ t/junk.t | 0 7 files changed, 376 insertions(+), 279 deletions(-) create mode 100755 t/021-generate_token.t delete mode 100755 t/021-payments-card-normal_authorization.t delete mode 100755 t/022-payments-card-pre-authorization-complete-void.t create mode 100755 t/031-payments-card-normal_authorization.t create mode 100755 t/032-payments-card-pre-authorization-complete-void.t create mode 100755 t/041-tokenize-card.t create mode 100755 t/junk.t (limited to 't') diff --git a/t/021-generate_token.t b/t/021-generate_token.t new file mode 100755 index 0000000..14d38c1 --- /dev/null +++ b/t/021-generate_token.t @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use lib 't'; +use Business::OnlinePayment; + +my $tr; +ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' ); + +my $token; +ok( $token = $tr->generate_token, "\$tr->generate_token: $token" ); +ok( $token =~ /^99\d{14}$/, 'Token matches expected format' ); +done_testing; \ No newline at end of file diff --git a/t/021-payments-card-normal_authorization.t b/t/021-payments-card-normal_authorization.t deleted file mode 100755 index f4eb89b..0000000 --- a/t/021-payments-card-normal_authorization.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/ - is_success - message_id - authorization - order_number - txn_date - avs_code - /) { - 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-complete-void.t b/t/022-payments-card-pre-authorization-complete-void.t deleted file mode 100755 index 00c25f9..0000000 --- a/t/022-payments-card-pre-authorization-complete-void.t +++ /dev/null @@ -1,172 +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', 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 - id - ); - - 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, - amount => '8.99', # $1 Less than pre-auth - ); - - my $tr_pa; - ok( $tr_pa = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr_pa' ); - ok( $tr_pa->content( %content ), 'Set transaction content onto $tr_pa' ); - { - local $@; - eval { $tr_pa->submit }; - ok( !$@, "Submit post-auth" ); - warn "Error: $@" if $@; - } - - %expect = ( - amount => '8.99', - approved => '1', - message => 'Approved', - message_id => '1', - type => 'PAC', - ); - @expect = (qw/ - authorizing_merchant_id - card - created - order_number - id - /); - - my $response_pa; - ok( $response_pa = $tr_pa->response_decoded, 'response_decoded' ); - - for my $k ( keys %expect ) { - ok( - $response_pa->{$k} eq $expect{$k}, - sprintf '$tr->%s == %s', $k, $expect{$k} - ); - } - - for my $k ( @expect ) { - ok( - defined $response_pa->{$k}, - sprintf '$r->%s (%s)', - $k, $response_pa->{$k} - ); - } - - # - # Void Transaction - # - - my %content_void = ( - action => 'Void', - login => $content{login}, - password => $content{password}, - order_number => $tr_pa->order_number, - amount => '8.99', - ); - - my $tr_void; - ok( $tr_void = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr_void' ); - ok( $tr_void->content( %content_void ), 'Set transaction content onto $tr_void' ); - { - local $@; - eval { $tr_void->submit }; - ok( !$@, "Submit void" ); - warn "Error: $@" if $@; - } - - %expect = ( - amount => '8.99', - approved => '1', - message => 'Approved', - message_id => '1', - type => 'R', - ); - @expect = (qw/ - authorizing_merchant_id - card - created - order_number - id - /); - -} - -done_testing; \ No newline at end of file diff --git a/t/031-payments-card-normal_authorization.t b/t/031-payments-card-normal_authorization.t new file mode 100755 index 0000000..f4eb89b --- /dev/null +++ b/t/031-payments-card-normal_authorization.t @@ -0,0 +1,107 @@ +#!/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/ + is_success + message_id + authorization + order_number + txn_date + avs_code + /) { + 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/032-payments-card-pre-authorization-complete-void.t b/t/032-payments-card-pre-authorization-complete-void.t new file mode 100755 index 0000000..7c575c9 --- /dev/null +++ b/t/032-payments-card-pre-authorization-complete-void.t @@ -0,0 +1,172 @@ +#!/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', 32 + 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 + id + ); + + 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, + amount => '8.99', # $1 Less than pre-auth + ); + + my $tr_pa; + ok( $tr_pa = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr_pa' ); + ok( $tr_pa->content( %content ), 'Set transaction content onto $tr_pa' ); + { + local $@; + eval { $tr_pa->submit }; + ok( !$@, "Submit post-auth" ); + warn "Error: $@" if $@; + } + + %expect = ( + amount => '8.99', + approved => '1', + message => 'Approved', + message_id => '1', + type => 'PAC', + ); + @expect = (qw/ + authorizing_merchant_id + card + created + order_number + id + /); + + my $response_pa; + ok( $response_pa = $tr_pa->response_decoded, 'response_decoded' ); + + for my $k ( keys %expect ) { + ok( + $response_pa->{$k} eq $expect{$k}, + sprintf '$tr->%s == %s', $k, $expect{$k} + ); + } + + for my $k ( @expect ) { + ok( + defined $response_pa->{$k}, + sprintf '$r->%s (%s)', + $k, $response_pa->{$k} + ); + } + + # + # Void Transaction + # + + my %content_void = ( + action => 'Void', + login => $content{login}, + password => $content{password}, + order_number => $tr_pa->order_number, + amount => '8.99', + ); + + my $tr_void; + ok( $tr_void = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr_void' ); + ok( $tr_void->content( %content_void ), 'Set transaction content onto $tr_void' ); + { + local $@; + eval { $tr_void->submit }; + ok( !$@, "Submit void" ); + warn "Error: $@" if $@; + } + + %expect = ( + amount => '8.99', + approved => '1', + message => 'Approved', + message_id => '1', + type => 'R', + ); + @expect = (qw/ + authorizing_merchant_id + card + created + order_number + id + /); + +} + +done_testing; \ No newline at end of file diff --git a/t/041-tokenize-card.t b/t/041-tokenize-card.t new file mode 100755 index 0000000..f8a1292 --- /dev/null +++ b/t/041-tokenize-card.t @@ -0,0 +1,82 @@ +#!/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', 32 + unless $merchant_id && $api_key; + + my %content = ( + login => $merchant_id, + password => $api_key, + action => 'Tokenize', + amount => '9.99', + + owner => 'Freeside Internet', + 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 request to create Payment Profile (tokenize)" ); + } + + my $response; + + my %expect = ( + code => 1, + message => 'Operation Successful', + ); + my @expect = qw( + customer_code + ); + + 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} + ); + } + + ok( + $response->{customer_code} eq $tr->card_token, + '$tr->card_token eq $response->{customer_code}' + ); + +} + +done_testing; \ No newline at end of file diff --git a/t/junk.t b/t/junk.t new file mode 100755 index 0000000..e69de29 -- cgit v1.2.1