From: ivan Date: Tue, 11 Jan 2005 06:52:06 +0000 (+0000) Subject: reversing accidentall commit of ::SecureHostingUPG test suite X-Git-Tag: Business_OnlinePayment_OpenECHO_0_03~8 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-OpenECHO.git;a=commitdiff_plain;h=71f81652cd1bd62d0962647ffb19bf49d681f726 reversing accidentall commit of ::SecureHostingUPG test suite --- diff --git a/t/bad_card.t b/t/bad_card.t index da64193..3d0913c 100644 --- a/t/bad_card.t +++ b/t/bad_card.t @@ -1,4 +1,4 @@ -BEGIN {$| = 1; print "1..1\n"; } +BEGIN { $| = 1; print "1..1\n"; } eval "use Net::SSLeay;"; if ( $@ ) { @@ -7,33 +7,26 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("SecureHostingUPG"); - -#$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::SecureHostingUPG::DEBUG = 1; -#$Business::OnlinePayment::SecureHostingUPG::DEBUG = 1; - +my $tx = new Business::OnlinePayment("OpenECHO"); $tx->content( type => 'VISA', - login => 'SH207361', #SecureHosting Reference - password => '495376', #SecureHosting Checkcode value + #login => '123>4684752', + login => '1234684752', + password => '54321420', action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - currency => 'GBP', - name => 'Tofu Beast', + 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', - email => 'tofu.beast@example.com', - card_number => '4005550000000020', + card_number => '4007000000027', expiration => '08/06', - card_start => '05/04', - cvv2 => '1234', #optional - issue_number => '5678', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); @@ -42,6 +35,6 @@ if($tx->is_success()) { print "not ok 1\n"; } else { #warn $tx->server_response."\n"; - #warn $tx->error_message. "\n"; + #warn $tx->error_message. "\n"; 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 index d111585..3878374 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -7,34 +7,26 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("SecureHostingUPG"); - -#$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::HTTPS::DEBUG = 1; -#$Business::OnlinePayment::SecureHostingUPG::DEBUG = 1; -#$Business::OnlinePayment::SecureHostingUPG::DEBUG = 1; - +my $tx = new Business::OnlinePayment("OpenECHO"); $tx->content( type => 'VISA', - login => 'SH207361', #SecureHosting Reference - password => '495376', #SecureHosting Checkcode value + #login => '123>4684752', + login => '1234684752', + password => '54321420', action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - currency => 'GBP', - name => 'Tofu Beast', + 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', - email => 'tofu.beast@example.com', - #card_number => '4005550000000019', - card_number => '4242424242424242', - expiration => '01/06', - card_start => '05/04', - cvv2 => '1234', #optional - issue_number => '5678', + card_number => '4005550000000019', + expiration => '08/06', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t index 1f8384b..9e10fc2 100644 --- a/t/crypt_bad_card.t +++ b/t/crypt_bad_card.t @@ -11,28 +11,26 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("SecureHostingUPG"); - +my $tx = new Business::OnlinePayment("OpenECHO"); $tx->content( type => 'VISA', - login => 'SH207361', #SecureHosting Reference - password => '495376', #SecureHosting Checkcode value + #login => '123>4684752', + login => '1234684752', + password => '54321420', action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - currency => 'GBP', - name => 'Tofu Beast', + 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', - email => 'tofu.beast@example.com', - card_number => '4005550000000020', + card_number => '4007000000027', expiration => '08/06', - card_start => '05/04', - cvv2 => '1234', #optional - issue_number => '5678', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); diff --git a/t/crypt_credit_card.t b/t/crypt_credit_card.t index 8799603..8f5c252 100644 --- a/t/crypt_credit_card.t +++ b/t/crypt_credit_card.t @@ -11,27 +11,26 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("SecureHostingUPG"); +my $tx = new Business::OnlinePayment("OpenECHO"); $tx->content( type => 'VISA', - login => 'SH207361', #SecureHosting Reference - password => '495376', #SecureHosting Checkcode value + #login => '123>4684752', + login => '1234684752', + password => '54321420', action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - currency => 'GBP', - name => 'Tofu Beast', + 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', - email => 'tofu.beast@example.com', card_number => '4005550000000019', expiration => '08/06', - card_start => '05/04', - cvv2 => '1234', #optional - issue_number => '5678', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); diff --git a/t/crypt_load.t b/t/crypt_load.t index 03bca03..d92b8f3 100644 --- a/t/crypt_load.t +++ b/t/crypt_load.t @@ -8,6 +8,6 @@ BEGIN { $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; } END {print "not ok 1\n" unless $loaded;} -use Business::OnlinePayment::SecureHostingUPG; +use Business::OnlinePayment::OpenECHO; $loaded = 1; print "ok 1\n"; diff --git a/t/load.t b/t/load.t index 1d6d6bc..cca662e 100644 --- a/t/load.t +++ b/t/load.t @@ -7,6 +7,6 @@ BEGIN { } END {print "not ok 1\n" unless $loaded;} -use Business::OnlinePayment::SecureHostingUPG; +use Business::OnlinePayment::OpenECHO; $loaded = 1; print "ok 1\n";