From 51c7503002afd10e1070a60494bb1daca9daba16 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sat, 14 Feb 2015 14:37:29 -0800 Subject: 0.03, cvv2 not required for all transactions (+add test, update MANIFEST), RT#32782 --- t/transaction_nocvv.t | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 t/transaction_nocvv.t (limited to 't/transaction_nocvv.t') diff --git a/t/transaction_nocvv.t b/t/transaction_nocvv.t new file mode 100644 index 0000000..625c01d --- /dev/null +++ b/t/transaction_nocvv.t @@ -0,0 +1,63 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use POSIX qw(strftime); +use Test::More; +use Business::OnlinePayment; +require "t/lib/test_account.pl"; + +my %opts = test_account('card'); + +if (!$opts{'login'} || !$opts{'password'}) { + plan skip_all => "no test credentials provided; fill out t/lib/test_account.pl to test communication with the gateway.", + 1; + exit(0); +} + +plan tests => 2; + +### +# Purchase +### +my %content = ( + login => delete($opts{'login'}), + password => delete($opts{'password'}), + action => 'Normal Authorization', + description => 'Business::OnlinePayment visa test', + card_number => '4111111111111111', + expiration => expiration_date(), + amount => '24.42', + name => 'Murphy Law', + email => 'fake@acme.com', + address => '123 Anystreet', + zip => '84058', +); + +my $tx = new Business::OnlinePayment( 'vSecureProcessing', %opts ); + +$tx->content( %content ); + +$tx->test_transaction(1); + +$tx->submit; + +is( $tx->is_success, 1, 'purchase' ) + or diag('Gateway error: '. $tx->error_message); + +### +# Refund +### +my $auth = $tx->authorization; +$tx = new Business::OnlinePayment( 'vSecureProcessing', %opts ); +$tx->content( %content, + action => 'Credit', + authorization => $auth ); +$tx->test_transaction(1); + +$tx->submit; + +is( $tx->is_success, 1, 'refund' ) + or diag('Gateway error: '. $tx->error_message); + +1; -- cgit v1.2.1