X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-eSelectPlus.git;a=blobdiff_plain;f=t%2Fcredit_card.t;fp=t%2Fcredit_card.t;h=0000000000000000000000000000000000000000;hp=68431556b7ff3bd0bdffeaf7de29783391cad29e;hb=c68ddf7bf88ab9a2c8c3b5fbb90f48b7b81828bf;hpb=68a1e22789d07aae6ebfdbf59ffe608a62c6d71b diff --git a/t/credit_card.t b/t/credit_card.t deleted file mode 100644 index 6843155..0000000 --- a/t/credit_card.t +++ /dev/null @@ -1,36 +0,0 @@ -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', - 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"; -} -