diff options
Diffstat (limited to 't/t_transaction_decline.t')
-rw-r--r-- | t/t_transaction_decline.t | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/t/t_transaction_decline.t b/t/t_transaction_decline.t deleted file mode 100644 index 2e15eb2..0000000 --- a/t/t_transaction_decline.t +++ /dev/null @@ -1,46 +0,0 @@ -#!/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{'gid'} || !$opts{'appid'}) { - 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; -my %content = ( - appid => $opts{'appid'}, - action => 'Normal Authorization', - description => 'Business::OnlinePayment visa test', - card_number => '4111111111111112', # trigger failure - cvv2 => '111', - 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, 0, 'declined purchase') - or diag('Test transaction should have failed, but succeeded'); -is( $tx->failure_status, 'nsf', 'failure status' ) - or diag('Failure status reported as '.$tx->failure_status); - -1; |