X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=blobdiff_plain;f=t%2Fvoid_card_mc.t;h=34cf56aae586349cb1cb237453a7e05e1e63fe40;hp=2749466d4e82782dc3a718e357f2df3061bb6551;hb=5aedd8b05907cc42933165dae3d0ff5917043a8a;hpb=fc86c68c3af2bc3e5fcf870f3fc026e0b6069f93 diff --git a/t/void_card_mc.t b/t/void_card_mc.t index 2749466..34cf56a 100644 --- a/t/void_card_mc.t +++ b/t/void_card_mc.t @@ -14,15 +14,19 @@ 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', card_number => '5121212121212124', expiration => '03/10', - cvv2 => '999', + #cvv2 => '123', name => 'Tofu Beast', address => '8320', city => 'Anywhere', @@ -46,8 +50,8 @@ my $v_tx = new Business::OnlinePayment("Skipjack"); $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(), @@ -60,7 +64,7 @@ if($v_tx->is_success()) { 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"; }