7 require 'TestFixtures.pm';
8 use Business::OnlinePayment;
10 my $merchant_id = $ENV{BAMBORA_MERCHANT_ID};
11 my $api_key = $ENV{BAMBORA_API_KEY};
14 skip 'Missing env vars BAMBORA_MERCHANT_ID and BAMBORA_API_KEY', 78
15 unless $merchant_id && $api_key;
18 login => $merchant_id,
20 action => 'Normal Authorization',
23 owner => 'Freeside Internet Services',
24 name => 'Mitch Jackson',
25 address => '1407 Graymalkin Lane',
31 card_number => '4242424242424242',
34 phone => '251-300-1300',
35 email => 'mitch@freeside.biz',
38 # Test approved card numbers,
39 # ref: https://dev.na.bambora.com/docs/references/payment_APIs/test_cards/
40 my %approved_cards = (
41 visa => { card => '4030000010001234', cvv2 => '123' },
42 mastercard => { card => '5100000010001004', cvv2 => '123' },
43 mastercard2 => { card => '2223000048400011', cvv2 => '123' },
44 amex => { card => '371100001000131', cvv2 => '1234' },
45 visa => { card => '4030000010001234', cvv2 => '123' },
46 discover => { card => '6011500080009080', cvv2 => '123' },
49 for my $name ( keys %approved_cards ) {
50 $content{card_number} = $approved_cards{$name}->{card};
51 $content{cvv2} = $approved_cards{$name}->{cvv2};
54 ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiatiate $tr' );
55 ok( $tr->content( %content ), 'Set transaction content onto $tr' );
59 ok( !$@, "$name Process transaction (expect approve)" );
72 sprintf '%s $tr->%s() = %s',
80 # Test declined card numbers,
81 # ref: https://dev.na.bambora.com/docs/references/payment_APIs/test_cards/
83 visa => { card => '4003050500040005', cvv2 => '123' },
84 mastercard => { card => '5100000020002000', cvv2 => '123' },
85 amex => { card => '342400001000180', cvv2 => '1234' },
86 discover => { card => '6011000900901111', cvv2 => '123' },
88 for my $name ( keys %decline_cards ) {
89 $content{card_number} = $decline_cards{$name}->{card};
90 $content{cvv2} = $decline_cards{$name}->{cvv2};
93 ok( $tr = Business::OnlinePayment->new('Bambora'), 'Instantiate $tr' );
94 ok( $tr->content( %content ), 'Set transaction content onto $tr' );
98 ok( !$@, "$name: Process transaction (expect decline)" );
101 ok( $tr->is_success == 0, '$tr->is_success == 0' );
102 ok( $tr->result_code != 1, '$tr->result_code != 1' );
103 ok( $tr->error_message, '$tr->error_message: '.$tr->error_message );