diff options
Diffstat (limited to 't2/bad_auth.t')
-rw-r--r-- | t2/bad_auth.t | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/t2/bad_auth.t b/t2/bad_auth.t deleted file mode 100644 index 689b0cc..0000000 --- a/t2/bad_auth.t +++ /dev/null @@ -1,41 +0,0 @@ -BEGIN { $| = 1; print "1..1\n"; } - -use Business::OnlinePayment; - -my $tx = new Business::OnlinePayment("LinkPoint", - 'storename' => '1909922411', - 'keyfile' => './test.pem', -); - -$tx->content( - type => 'VISA', - action => 'Normal Authorization', - description => 'Business::OnlinePayment::LinkPoint visa 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', - card_number => '4007000000027', - expiration => '12/2008', - result => 'DECLINE', -); - -$tx->test_transaction(1); - -$tx->submit(); - -if($tx->is_success()) { - print "not ok 1\n"; - $auth = $tx->authorization; - warn "********* $auth ***********\n"; -} else { - print "ok 1\n"; - warn '***** '. $tx->error_message. " *****\n"; - exit; -} - |