Added environment variables for overriding HTML and developer serial numbers.

[Business-OnlinePayment-Skipjack.git] / t / crypt_credit_card_mc.t

diff --git a/t/crypt_credit_card_mc.t b/t/crypt_credit_card_mc.t
index fca30ab..aa2473c 100644 (file)
--- a/t/crypt_credit_card_mc.t
+++ b/t/crypt_credit_card_mc.t
@@ -18,9 +18,13 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
 

+my $login = $ENV{'sj_html_serial_number'} || '000944785470';
+my $password = $ENV{'sj_devel_serial_number'} || '100594217288';
+

 $tx->content(
     type           => 'VISA',
 $tx->content(
     type           => 'VISA',

-    login          => '000944785470', # "HTML serial number"
+    login          => $login, # "HTML serial number"
+    password       => $password, # "Developer serial number"

     action         => 'Normal Authorization',
     description    => 'Business::OnlinePayment::Skipjack test',
     amount         => '32',
     action         => 'Normal Authorization',
     description    => 'Business::OnlinePayment::Skipjack test',
     amount         => '32',