From 196db498d6a75d4a772946049fbaee6b4700dd85 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 2 May 2007 01:32:31 +0000 Subject: - Update for new test account. - Add "cargs" argument including "-k" when in test mode. - Move tests from t2/ and have them actually work out of the box. - get rid of old Exporter / AutoLoader cruft - patch from Mark D. Anderson : - addrnum should be first digit string, not first word - avoid uninitialized variable warnings in lpperl due to webspace and debug - Map customer_ip, customer_id, invoice_number and description fields - Pass email, company, fax fields - Set lpperl debug if our $DEBUG is set - Better/supplimental download link for lpperl.pm --- t/echeck.t | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 t/echeck.t (limited to 't/echeck.t') diff --git a/t/echeck.t b/t/echeck.t new file mode 100644 index 0000000..7a52c25 --- /dev/null +++ b/t/echeck.t @@ -0,0 +1,50 @@ +BEGIN { $| = 1; print "1..1\n"; } + +$no_echeck_tests = + "Skipped: Linkpoint doesn't provide a way to test echecks\n"; +warn $no_echeck_tests; +print "ok 1 # $no_echeck_tests"; +exit; + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("LinkPoint", + 'storename' => '1909796604', + 'keyfile' => './test.pem', + 'server' => 'staging.linkpt.net', +); + +$tx->content( + type => 'ECHECK', + action => 'Normal Authorization', + description => 'Business::OnlinePayment::LinkPoint echeck test', + amount => '0.01', + first_name => 'Tofu', + last_name => 'Beast', + address => '123 Anystreet', + city => 'Anywhere', + state => 'UT', + zip => '84058', + country => 'US', + email => 'ivan-linkpoint@420.am', + account_number => '0027', + account_type => 'Personal Checking', + routing_code => '400700000', + bank_name => 'SomeBank', + bank_state => 'UT', +); + +$tx->test_transaction(1); + +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; + #$auth = $tx->authorization; + #warn "********* $auth ***********\n"; +} else { + print "not ok 1\n"; + warn '***** '. $tx->error_message. " *****\n"; + exit; +} + -- cgit v1.2.1