- Update for production URL

[Business-OnlinePayment-vSecureProcessing.git] / t / t_transaction_decline.t

diff --git a/t/t_transaction_decline.t b/t/t_transaction_decline.t
deleted file mode 100644 (file)
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;