X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=blobdiff_plain;f=t%2Fcredit_card_mc.t;h=6d026e4a471ad3d51905c58bb1853c8d32a6ddd7;hp=aa11a26975180a970c2ad0a257e339d5ab386260;hb=5aedd8b05907cc42933165dae3d0ff5917043a8a;hpb=fc86c68c3af2bc3e5fcf870f3fc026e0b6069f93

diff --git a/t/credit_card_mc.t b/t/credit_card_mc.t
index aa11a26..6d026e4 100644
--- a/t/credit_card_mc.t
+++ b/t/credit_card_mc.t
@@ -14,9 +14,13 @@ my $tx = new Business::OnlinePayment("Skipjack");
 #$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',
-    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',
@@ -36,7 +40,7 @@ $tx->submit();
 if($tx->is_success()) {
     print "ok 1\n";
 } else {
-    #warn $tx->server_response."\n";
+    warn $tx->server_response."\n";
     warn $tx->error_message. "\n";
     print "not ok 1\n";
 }