From 71f81652cd1bd62d0962647ffb19bf49d681f726 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 11 Jan 2005 06:52:06 +0000 Subject: reversing accidentall commit of ::SecureHostingUPG test suite --- t/crypt_credit_card.t | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 't/crypt_credit_card.t') 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(); -- cgit v1.2.1