#42638: Update URLs for B::OP AuthorizeNet

[Business-OnlinePayment-AuthorizeNet.git] / t / check.t

diff --git a/t/check.t b/t/check.t
index 140dace..00493e0 100644 (file)
--- a/t/check.t
+++ b/t/check.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
 
-use Test::More;
+use Test::More skip_all => "Authorize.net test account won't do ACH";
 require "t/lib/test_account.pl";
 
-my($login, $password) = test_account_or_skip();
+my($login, $password) = test_account_or_skip('ach');
 plan tests => 2;
 
 use_ok 'Business::OnlinePayment';
@@ -34,6 +34,5 @@ $ctx->submit();
 
 SKIP: {
     skip $ctx->error_message, 1 if $ctx->result_code == 18;
-
     ok( $ctx->is_success() ) || diag $ctx->error_message;
 }