X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-eSelectPlus.git;a=blobdiff_plain;f=t%2Fcredit_card_ca.t;fp=t%2Fcredit_card_ca.t;h=a0d5835e960a970d35b3deef0c87f210ede1dd3b;hp=0000000000000000000000000000000000000000;hb=c68ddf7bf88ab9a2c8c3b5fbb90f48b7b81828bf;hpb=68a1e22789d07aae6ebfdbf59ffe608a62c6d71b diff --git a/t/credit_card_ca.t b/t/credit_card_ca.t new file mode 100644 index 0000000..a0d5835 --- /dev/null +++ b/t/credit_card_ca.t @@ -0,0 +1,37 @@ +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("eSelectPlus"); + +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +$Business::OnlinePayment::eSelectPlus::DEBUG = 1; + +$tx->content( + type => 'VISA', + login => 'moot', + password => 'moot', + action => 'Normal Authorization', + amount => '0.80', + currency => 'CAD', + card_number => '4242424242424242', + expiration => '01/12', +); +$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"; +} +