0.06!

[Business-OnlinePayment-TransactionCentral.git] / t / bad_check.t

diff --git a/t/bad_check.t b/t/bad_check.t
index 8d56e55..5152762 100644 (file)
--- a/t/bad_check.t
+++ b/t/bad_check.t
@@ -9,12 +9,15 @@ BEGIN { $| = 1; print "1..1\n"; }
 
 use Business::OnlinePayment;
 
+require "t/lib/test_account.pl";
+my($login, $regkey) = test_account_or_skip();
+
 my $ctx = new Business::OnlinePayment("TransactionCentral");
 
 $ctx->content(
     type           => 'ECHECK',
-    login          => '10011',
-    password       => 'KK48NPYEJHMAH6DK', #regkey
+    login          => $login,
+    password       => $regkey,
     action         => 'Normal Authorization',
     amount         => '49.95',
     invoice_number => '100100',