1 BEGIN { $| = 1; print "1..1\n"; }
4 "Skipped: Linkpoint doesn't provide a way to test echecks\n";
6 print "ok 1 # $no_echeck_tests";
9 use Business::OnlinePayment;
11 my $tx = new Business::OnlinePayment("LinkPoint",
12 'storename' => '1909796604',
13 'keyfile' => './test.pem',
14 'server' => 'staging.linkpt.net',
19 action => 'Normal Authorization',
20 description => 'Business::OnlinePayment::LinkPoint echeck test',
24 address => '123 Anystreet',
29 email => 'ivan-linkpoint@420.am',
30 account_number => '0027',
31 account_type => 'Personal Checking',
32 routing_code => '400700000',
33 bank_name => 'SomeBank',
37 $tx->test_transaction(1);
41 if($tx->is_success()) {
43 #$auth = $tx->authorization;
44 #warn "********* $auth ***********\n";
47 warn '***** '. $tx->error_message. " *****\n";