BEGIN { $| = 1; print "1..2\n"; } eval "use Net::SSLeay;"; if ( $@ ) { print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; } use Business::OnlinePayment; my $tx = new Business::OnlinePayment("Skipjack"); #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::Skipjack::DEBUG = 1; #$Business::OnlinePayment::Skipjack::DEBUG = 1; $tx->content( type => 'VISA', login => '000368452762', # "HTML serial number" action => 'Normal Authorization', description => 'Business::OnlinePayment::Skipjack test', amount => '32', card_number => '4445999922225', expiration => '03/10', cvv2 => '999', name => 'Tofu Beast', address => '8320', city => 'Anywhere', state => 'UT', zip => '85284', phone => '415-420-5454', email => 'ivan-skipjack-test@420.am', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); if($tx->is_success()) { print "ok 1\n"; } else { #warn $tx->server_response."\n"; warn $tx->error_message. "\n"; print "not ok 1\n"; } my $v_tx = new Business::OnlinePayment("Skipjack"); $v_tx->content( type => 'VISA', login => '000368452762', # "HTML serial number" password => '100594217288', # "developer serial number" action => 'Void', description => 'Business::OnlinePayment::Skipjack test', order_number => $tx->order_number(), ); $v_tx->test_transaction(1); # test, dont really charge $v_tx->submit(); if($v_tx->is_success()) { print "ok 2\n"; } else { #warn $v_tx->server_response."\n"; warn $v_tx->error_message. "\n"; print "not ok 2\n"; }