Removed CVV2 info from tests.
like buzzwords, call it an "multiplatform ecommerce-enabling middleware
solution").
+Environment variable recongnized by "make test":
+sj_html_serial_number - HTML serial number
+sj_devel_serial_number - Developer serial number (required for voids & credits)
+
#$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',
#$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 => '000368452762', # "HTML serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Normal Authorization',
description => 'Business::OnlinePayment::Skipjack test',
amount => '32',
#$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";
}
#$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 => '000368452762', # "HTML serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Normal Authorization',
description => 'Business::OnlinePayment::Skipjack test',
amount => '32',
#$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',
#$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 => '000368452762', # "HTML serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Normal Authorization',
description => 'Business::OnlinePayment::Skipjack test',
amount => '32',
#$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',
#$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 => '000368452762', # "HTML serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Normal Authorization',
description => 'Business::OnlinePayment::Skipjack test',
amount => '32',
#$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 => '999',
name => 'Tofu Beast',
address => '8320',
city => 'Anywhere',
$cr_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 => 'Credit',
description => 'Business::OnlinePayment::Skipjack test',
amount => 11,
#$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 => '000368452762', # "HTML serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Normal Authorization',
description => 'Business::OnlinePayment::Skipjack test',
amount => '32',
$pa_tx->content(
type => 'VISA',
- login => '000368452762', # "HTML serial number"
- password => '100594217288', # "developer serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Post Authorization',
description => 'Business::OnlinePayment::Skipjack test',
order_number => $tx->order_number(),
$st_tx->content(
type => 'VISA',
- login => '000368452762', # "HTML serial number"
- password => '100594217288', # "developer serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Status',
description => 'Business::OnlinePayment::Skipjack test',
order_number => $tx->order_number(),
$cr_tx->content(
type => 'VISA',
- login => '000368452762', # "HTML serial number"
- password => '100594217288', # "developer serial number"
+ login => $login, # "HTML serial number"
+ password => $password, # "Developer serial number"
action => 'Credit',
description => 'Business::OnlinePayment::Skipjack test',
amount => 11,
#$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";
}
#$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 => '000368452762', # "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 => '4445999922225',
expiration => '03/10',
- cvv2 => '999',
+ #cvv2 => '123',
name => 'Tofu Beast',
address => '8320',
city => 'Anywhere',
$v_tx->content(
type => 'VISA',
- login => '000368452762', # "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(),