0.06!

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

diff --git a/t/order_number.t b/t/order_number.t
index 9d752a4..f6b2a2c 100644 (file)
--- a/t/order_number.t
+++ b/t/order_number.t
@@ -7,6 +7,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;
@@ -16,8 +19,8 @@ my $tx = new Business::OnlinePayment("TransactionCentral");
 
 $tx->content(
     type           => 'VISA',
-    login          => '10011',
-    password       => 'KK48NPYEJHMAH6DK', #regkey
+    login          => $login,
+    password       => $regkey,
     action         => 'Normal Authorization',
     description    => 'Business::OnlinePayment::TransactionCentral test',
     amount         => '32',