#$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',
card_number => '5121212121212124',
expiration => '03/10',
- cvv2 => '999',
+ #cvv2 => '123',
name => 'Tofu Beast',
address => '8320',
city => 'Anywhere',
$v_tx->content(
type => 'VISA',
- login => '000944785470', # "HTML serial number"
- password => '100594217288', # "developer serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Void',
description => 'Business::OnlinePayment::Skipjack test',
order_number => $tx->order_number(),
print "ok 2\n";
} else {
#warn $v_tx->server_response."\n";
- warn $v_tx->error_message. "\n";
+ #warn $v_tx->error_message. "\n";
print "not ok 2\n";
}