X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=blobdiff_plain;f=t%2Freturn_card_mc.t;fp=t%2Freturn_card_mc.t;h=75e2af7175c64377fc7925b4e900c660e20dfb62;hp=0000000000000000000000000000000000000000;hb=9751024873641a07657bec7f11597ae18cf63207;hpb=ab1c1af3492abdb8e865a7c764f80d82ec17b338 diff --git a/t/return_card_mc.t b/t/return_card_mc.t new file mode 100644 index 0000000..75e2af7 --- /dev/null +++ b/t/return_card_mc.t @@ -0,0 +1,72 @@ +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 => '000944785470', # "HTML serial number" + action => 'Normal Authorization', + description => 'Business::OnlinePayment::Skipjack test', + amount => '32', + card_number => '5121212121212124', + 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"; +} + +print "ok 2 # Skipped: Credit needs a settled transaction\n"; exit; + +my $cr_tx = new Business::OnlinePayment("Skipjack"); + +$cr_tx->content( + type => 'VISA', + login => '000944785470', # "HTML serial number" + password => '100594217288', # "developer serial number" + action => 'Credit', + description => 'Business::OnlinePayment::Skipjack test', + amount => 11, + order_number => $tx->order_number(), +); + +$cr_tx->test_transaction(1); # test, dont really charge +$cr_tx->submit(); + +if($cr_tx->is_success()) { + print "ok 2\n"; +} else { + #warn $cr_tx->server_response."\n"; + warn $cr_tx->error_message. "\n"; + print "not ok 2\n"; +} + + + +