0.06!

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

diff --git a/t/bad_card.t b/t/bad_card.t
index aa593bd..2d68880 100644 (file)
--- a/t/bad_card.t
+++ b/t/bad_card.t
@@ -10,6 +10,9 @@ if ( $@ ) {
 
 use Business::OnlinePayment;
 
+require "t/lib/test_account.pl";
+my($login, $regkey) = test_account_or_skip();
+
 my $tx = new Business::OnlinePayment("TransactionCentral");
 
 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
@@ -19,8 +22,8 @@ $Business::OnlinePayment::TransactionCentral::DEBUG = 1;
 
 $tx->content(
     type           => 'VISA',
-    login          => '10011',
-    password       => 'KK48NPYEJHMAH6DK', #regkey
+    login          => $login,
+    password       => $regkey,
     action         => 'Normal Authorization',
     amount         => '32.32',
     #card_number    => '4012000000001',