From 915bd5ff8cf528b62d79d045c436d17d92be4d89 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 3 Sep 2004 23:37:13 +0000 Subject: inital checking of OpenECHO module --- t/bad_card.t | 40 ++++++++++++++++++++++++++++++++ t/bop.t | 5 ++++ t/capture.t | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++ t/check.t | 32 ++++++++++++++++++++++++++ t/credit_card.t | 41 +++++++++++++++++++++++++++++++++ t/crypt_bad_card.t | 45 ++++++++++++++++++++++++++++++++++++ t/crypt_credit_card.t | 45 ++++++++++++++++++++++++++++++++++++ t/crypt_load.t | 13 +++++++++++ t/load.t | 12 ++++++++++ 9 files changed, 296 insertions(+) create mode 100644 t/bad_card.t create mode 100644 t/bop.t create mode 100644 t/capture.t create mode 100644 t/check.t create mode 100644 t/credit_card.t create mode 100644 t/crypt_bad_card.t create mode 100644 t/crypt_credit_card.t create mode 100644 t/crypt_load.t create mode 100644 t/load.t (limited to 't') diff --git a/t/bad_card.t b/t/bad_card.t new file mode 100644 index 0000000..b2bc0f1 --- /dev/null +++ b/t/bad_card.t @@ -0,0 +1,40 @@ +BEGIN { $| = 1; print "1..1\n"; } + +eval "use Net::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("OpenECHO"); +$tx->content( + type => 'VISA', + #login => '123>4684752', + login => '1234684752', + password => '43400210', + 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', + phone => '420-543-2199', + card_number => '4007000000027', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "not ok 1\n"; +} else { + #warn $tx->server_response."\n"; + #warn $tx->error_message. "\n"; + print "ok 1\n"; +} diff --git a/t/bop.t b/t/bop.t new file mode 100644 index 0000000..64332c5 --- /dev/null +++ b/t/bop.t @@ -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..53b2c4a --- /dev/null +++ b/t/capture.t @@ -0,0 +1,63 @@ +BEGIN { $| = 1; print "1..2\n"; } + +print "ok 1 # Skipped: no separate auth + capture test yet\n"; +print "ok 2 # Skipped: no separate auth + capture test yet\n"; +exit; + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("OpenECHO"); +$tx->content( + type => 'VISA', + login => 'testing',# CHANGE THESE TO TEST + password => 'testing',# + 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("OpenECHO"); + $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 => '111', + 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..d64d49c --- /dev/null +++ b/t/check.t @@ -0,0 +1,32 @@ +BEGIN { $| = 1; print "1..1\n"; } + +print "ok 1 # Skipped: no ACH test yet\n"; exit; + +use Business::OnlinePayment; + +# checks are broken it seems +my $ctx = new Business::OnlinePayment("OpenECHO"); +$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..f7dfafb --- /dev/null +++ b/t/credit_card.t @@ -0,0 +1,41 @@ +BEGIN { $| = 1; print "1..1\n"; } + +eval "use Net::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("OpenECHO"); +$tx->content( + type => 'VISA', + #login => '123>4684752', + login => '1234684752', + password => '43400210', + 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', + phone => '420-543-2199', + card_number => '4005550000000019', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; +} else { + #warn $tx->server_response."\n"; + warn $tx->error_message. "\n"; + print "not ok 1\n"; +} + diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t new file mode 100644 index 0000000..24810d2 --- /dev/null +++ b/t/crypt_bad_card.t @@ -0,0 +1,45 @@ +BEGIN { + $| = 1; print "1..1\n"; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} + +eval "use Crypt::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("OpenECHO"); +$tx->content( + type => 'VISA', + #login => '123>4684752', + login => '1234684752', + password => '43400210', + 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', + phone => '420-543-2199', + card_number => '4007000000027', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "not ok 1\n"; +} else { + #warn $tx->server_response."\n"; + #warn $tx->error_message. "\n"; + print "ok 1\n"; +} + diff --git a/t/crypt_credit_card.t b/t/crypt_credit_card.t new file mode 100644 index 0000000..ca51239 --- /dev/null +++ b/t/crypt_credit_card.t @@ -0,0 +1,45 @@ +BEGIN { + $| = 1; print "1..1\n"; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} + +eval "use Crypt::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("OpenECHO"); +$tx->content( + type => 'VISA', + #login => '123>4684752', + login => '1234684752', + password => '43400210', + 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', + phone => '420-543-2199', + card_number => '4005550000000019', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; +} else { + #warn $tx->server_response."\n"; + warn $tx->error_message. "\n"; + print "not ok 1\n"; +} + diff --git a/t/crypt_load.t b/t/crypt_load.t new file mode 100644 index 0000000..d92b8f3 --- /dev/null +++ b/t/crypt_load.t @@ -0,0 +1,13 @@ +BEGIN { + $| = 1; print "1..1\n"; + eval "use Crypt::SSLeay;"; + if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; + } + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment::OpenECHO; +$loaded = 1; +print "ok 1\n"; diff --git a/t/load.t b/t/load.t new file mode 100644 index 0000000..cca662e --- /dev/null +++ b/t/load.t @@ -0,0 +1,12 @@ +BEGIN { + $| = 1; print "1..1\n"; + eval "use Net::SSLeay;"; + if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; + } + +} +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment::OpenECHO; +$loaded = 1; +print "ok 1\n"; -- cgit v1.2.1