diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/bad_auth.t | 42 | ||||
| -rw-r--r-- | t/bop.t | 5 | ||||
| -rw-r--r-- | t/capture.t | 63 | ||||
| -rw-r--r-- | t/check.t | 32 | ||||
| -rw-r--r-- | t/credit_card.t | 35 | ||||
| -rw-r--r-- | t/load.t | 5 |
6 files changed, 182 insertions, 0 deletions
diff --git a/t/bad_auth.t b/t/bad_auth.t new file mode 100644 index 0000000..2db45af --- /dev/null +++ b/t/bad_auth.t @@ -0,0 +1,42 @@ +BEGIN { $| = 1; print "1..1\n"; } + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("IPaymentTPG", +); + +$tx->content( + login => 'testing', #CHANGE THESE TO TEST + password => 'testing', + type => 'VISA', + action => 'Normal Authorization', + description => 'Business::OnlinePayment::IPaymentTPG 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', + card_number => '0000000000000', + expiration => '12/2002', + 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; +} + @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n"; } +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment; +$loaded = 1; +print "ok 1\n"; diff --git a/t/capture.t b/t/capture.t new file mode 100644 index 0000000..92d9169 --- /dev/null +++ b/t/capture.t @@ -0,0 +1,63 @@ +BEGIN { $| = 1; print "1..2\n"; } + +#print "ok 1 # Skipped: need a valid iPayment login/password to test\n"; +#print "ok 2 # Skipped: need a valid iPayment login/password to test\n"; +#exit; + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("IPaymentTPG"); +$tx->content( + login => 'testing',# CHANGE THESE TO TEST + password => 'testing',# + type => 'VISA', + action => 'Authorization Only', + description => 'Business::OnlinePayment visa test', + amount => '49.95', + invoice_number => '100100', + customer_id => 'jsk', + first_name => 'Tofu', + last_name => 'Beast', + address => '123 Anystreet', + city => 'Anywhere', + state => 'UT', + zip => '84058', + card_number => '4007000000027', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +unless($tx->is_success()) { + print "not ok 1\n"; + print "not ok 2\n"; +} else { + my $order_number = $tx->order_number; + #warn $order_number; + print "ok 1\n"; + + my $settle_tx = new Business::OnlinePayment("IPaymentTPG"); + $settle_tx->content( + type => 'VISA', + login => 'testing', # CHANGE THESE TO TEST + password => 'testing', # + action => 'Post Authorization', + description => 'Business::OnlinePayment visa test', + amount => '49.95', + invoice_number => '100100', + order_number => $order_number, + card_number => '4007000000027', + expiration => '08/06', + ); + + $settle_tx->test_transaction(1); # test, dont really charge + $settle_tx->submit(); + + if($settle_tx->is_success()) { + print "ok 2\n"; + } else { + #warn $settle_tx->error_message; + print "not ok 2\n"; + } + +} diff --git a/t/check.t b/t/check.t new file mode 100644 index 0000000..87efff2 --- /dev/null +++ b/t/check.t @@ -0,0 +1,32 @@ +BEGIN { $| = 1; print "1..1\n"; } + +print "ok 1 # Skipped: ACH unimplemented with this processor\n"; exit; + +use Business::OnlinePayment; + +# checks are broken it seems +my $ctx = new Business::OnlinePayment("IPaymentTPG"); +$ctx->content( + type => 'CHECK', + login => 'testing', + password => 'testing', + action => 'Normal Authorization', + amount => '49.95', + invoice_number => '100100', + customer_id => 'jsk', + first_name => 'Tofu', + last_name => 'Beast', + account_number => '12345', + routing_code => '123456789', + bank_name => 'First National Test Bank', +); +$ctx->test_transaction(1); # test, dont really charge +$ctx->submit(); + +print $ctx->is_success()."\n"; + +if($ctx->is_success()) { + print "ok 1\n"; +} else { + print "not ok 1 (".$ctx->error_message().")\n"; +} diff --git a/t/credit_card.t b/t/credit_card.t new file mode 100644 index 0000000..349caae --- /dev/null +++ b/t/credit_card.t @@ -0,0 +1,35 @@ +BEGIN { $| = 1; print "1..1\n"; } + +#testing/testing is valid and seems to work... +#print "ok 1 # Skipped: need a valid iPayment login/password to test\n"; exit; + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("IPaymentTPG"); +$tx->content( + login => 'testing', #CHANGE THESE TO TEST + password => 'testing', # + type => 'VISA', + action => 'Normal Authorization', + description => 'Business::OnlinePayment visa test', + amount => '49.95', + invoice_number => '100100', + customer_id => 'jsk', + first_name => 'Tofu', + last_name => 'Beast', + address => '123 Anystreet', + city => 'Anywhere', + state => 'UT', + zip => '84058', + card_number => '4007000000027', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; +} else { + #warn $tx->error_message; + print "not ok 1\n"; +} diff --git a/t/load.t b/t/load.t new file mode 100644 index 0000000..41b0e43 --- /dev/null +++ b/t/load.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n"; } +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment::IPaymentTPG; +$loaded = 1; +print "ok 1\n"; |