diff options
author | ivan <ivan> | 2005-01-11 06:52:06 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-01-11 06:52:06 +0000 |
commit | 71f81652cd1bd62d0962647ffb19bf49d681f726 (patch) | |
tree | d8acd103e90d81aecbd430d6d7e158549d2ee796 /t/credit_card.t | |
parent | 2ad2f28ebc1bda8cebe759058c2d8ba7ad5d288b (diff) |
reversing accidentall commit of ::SecureHostingUPG test suite
Diffstat (limited to 't/credit_card.t')
-rw-r--r-- | t/credit_card.t | 28 |
1 files changed, 10 insertions, 18 deletions
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(); |