diff options
Diffstat (limited to 't2/multiple_xations.t')
-rw-r--r-- | t2/multiple_xations.t | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/t2/multiple_xations.t b/t2/multiple_xations.t deleted file mode 100644 index b756f05..0000000 --- a/t2/multiple_xations.t +++ /dev/null @@ -1,52 +0,0 @@ -BEGIN { $| = 1; print "1..2\n"; } - -use Business::OnlinePayment; - -for my $testnum ( 1 .. 2 ) { - &run_xaction($testnum); -} - -sub run_xaction { - - my $testnum = shift; - - my $tx = new Business::OnlinePayment("StGeorge", - # 'cert_path' => './java.cert', - 'cert_path' => '/home/ivan/Business-OnlinePayment-StGeorge/t2/java.cert', - ); - - $tx->content( - login => '10005432', - password => 'certphrase', - type => 'CC', - action => 'Normal Authorization', - description => 'Business::OnlinePayment::LinkPoint visa test', - amount => '1.00', - first_name => 'Tofu', - last_name => 'Beast', - address => '123 Anystreet', - city => 'Anywhere', - state => 'UT', - zip => '84058', - country => 'US', - email => 'ivan-stgeorge@420.am', - card_number => '4564456445644564', - expiration => '12/2005', - ); - - $tx->test_transaction(1); - - $tx->submit(); - - if($tx->is_success()) { - print "ok $testnum\n"; - $auth = $tx->authorization; - warn "********* $auth ***********\n"; - } else { - print "not ok $testnum\n"; - warn '***** '. $tx->error_message. " *****\n"; - exit; - } - -} - |