From e93e4c62ca78567871a493aebb1094e0590dbf71 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 11 Jan 2005 06:48:28 +0000 Subject: [PATCH] 0.01 --- t/bad_card.t | 29 ++++++++++++++++++----------- t/credit_card.t | 28 ++++++++++++++++++---------- t/crypt_bad_card.t | 20 +++++++++++--------- t/crypt_credit_card.t | 17 +++++++++-------- t/crypt_load.t | 2 +- t/load.t | 2 +- 6 files changed, 58 insertions(+), 40 deletions(-) diff --git a/t/bad_card.t b/t/bad_card.t index 3d0913c..da64193 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,26 +7,33 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("OpenECHO"); +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; + $tx->content( type => 'VISA', - #login => '123>4684752', - login => '1234684752', - password => '54321420', + login => 'SH207361', #SecureHosting Reference + password => '495376', #SecureHosting Checkcode value action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - invoice_number => '100100', - customer_id => 'jsk', - first_name => 'Tofu', - last_name => 'Beast', + currency => 'GBP', + name => 'Tofu Beast', address => '123 Anystreet', city => 'Anywhere', state => 'UT', zip => '84058', phone => '420-543-2199', - card_number => '4007000000027', + email => 'tofu.beast@example.com', + card_number => '4005550000000020', expiration => '08/06', + card_start => '05/04', + cvv2 => '1234', #optional + issue_number => '5678', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); @@ -35,6 +42,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/credit_card.t b/t/credit_card.t index 3878374..d111585 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -7,26 +7,34 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("OpenECHO"); +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; + $tx->content( type => 'VISA', - #login => '123>4684752', - login => '1234684752', - password => '54321420', + login => 'SH207361', #SecureHosting Reference + password => '495376', #SecureHosting Checkcode value action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - invoice_number => '100100', - customer_id => 'jsk', - first_name => 'Tofu', - last_name => 'Beast', + currency => 'GBP', + name => 'Tofu Beast', address => '123 Anystreet', city => 'Anywhere', state => 'UT', zip => '84058', phone => '420-543-2199', - card_number => '4005550000000019', - expiration => '08/06', + email => 'tofu.beast@example.com', + #card_number => '4005550000000019', + card_number => '4242424242424242', + expiration => '01/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_bad_card.t b/t/crypt_bad_card.t index 9e10fc2..1f8384b 100644 --- a/t/crypt_bad_card.t +++ b/t/crypt_bad_card.t @@ -11,26 +11,28 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("OpenECHO"); +my $tx = new Business::OnlinePayment("SecureHostingUPG"); + $tx->content( type => 'VISA', - #login => '123>4684752', - login => '1234684752', - password => '54321420', + login => 'SH207361', #SecureHosting Reference + password => '495376', #SecureHosting Checkcode value action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - invoice_number => '100100', - customer_id => 'jsk', - first_name => 'Tofu', - last_name => 'Beast', + currency => 'GBP', + name => 'Tofu Beast', address => '123 Anystreet', city => 'Anywhere', state => 'UT', zip => '84058', phone => '420-543-2199', - card_number => '4007000000027', + email => 'tofu.beast@example.com', + card_number => '4005550000000020', 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 8f5c252..8799603 100644 --- a/t/crypt_credit_card.t +++ b/t/crypt_credit_card.t @@ -11,26 +11,27 @@ if ( $@ ) { use Business::OnlinePayment; -my $tx = new Business::OnlinePayment("OpenECHO"); +my $tx = new Business::OnlinePayment("SecureHostingUPG"); $tx->content( type => 'VISA', - #login => '123>4684752', - login => '1234684752', - password => '54321420', + login => 'SH207361', #SecureHosting Reference + password => '495376', #SecureHosting Checkcode value action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', - invoice_number => '100100', - customer_id => 'jsk', - first_name => 'Tofu', - last_name => 'Beast', + currency => 'GBP', + name => 'Tofu 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 d92b8f3..03bca03 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::OpenECHO; +use Business::OnlinePayment::SecureHostingUPG; $loaded = 1; print "ok 1\n"; diff --git a/t/load.t b/t/load.t index cca662e..1d6d6bc 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::OpenECHO; +use Business::OnlinePayment::SecureHostingUPG; $loaded = 1; print "ok 1\n"; -- 2.11.0