BEGIN { $| = 1; print "1..1\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("PXPost"); #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::HTTPS::DEBUG = 1; #$Business::OnlinePayment::PXPost::DEBUG = 1; #$Business::OnlinePayment::PXPost::DEBUG = 1; $tx->content( type => 'VISA', login => 'Unicalldev', password => 'ds4gj7', action => 'Normal Authorization', name => 'Tofu Beast', amount => '54.01', card_number => '4111111111111111', expiration => '01/06', ); $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"; }