#$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',
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";
}