0.06!

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

diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t
index f1b23e6..b750d4b 100644 (file)
--- a/t/crypt_bad_card.t
+++ b/t/crypt_bad_card.t
@@ -14,12 +14,15 @@ if ( $@ ) {
 
 use Business::OnlinePayment;
 
+require "t/lib/test_account.pl";
+my($login, $regkey) = test_account_or_skip();
+
 my $tx = new Business::OnlinePayment("TransactionCentral");
 
 $tx->content(
     type           => 'VISA',
-    login          => '10011',
-    password       => 'KK48NPYEJHMAH6DK', #regkey
+    login          => $login,
+    password       => $regkey,
     action         => 'Normal Authorization',
     amount         => '32.32',
     #card_number    => '4012000000001',