diff options
| author | ivan <ivan> | 2005-01-11 06:48:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-01-11 06:48:28 +0000 |
| commit | e93e4c62ca78567871a493aebb1094e0590dbf71 (patch) | |
| tree | 940e1b93373259b758af2ca44a2d8737394d20fa /t/credit_card.t | |
| parent | f45d0b74930c71078574e4e4f33ae2c17440d3ad (diff) | |
0.01
Diffstat (limited to 't/credit_card.t')
| -rw-r--r-- | t/credit_card.t | 28 |
1 files changed, 18 insertions, 10 deletions
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(); |