diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/card.t | 6 | ||||
| -rw-r--r-- | t/lib/test_account.pl | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -61,8 +61,8 @@ my $voidable_amount = 0; $tx, desc => "invalid card_number", is_success => 0, - result_code => '912', - error_message => 'INVALID CARD NUMBER', + result_code => '900', #'912' with old jetpay gw + error_message => 'Invalid card number. ', #'INVALID CARD NUMBER' w/old gw authorization => qr/^$/, avs_code => '', # so rather pointless :\ cvv2_response => '', # ... @@ -91,7 +91,7 @@ my $voidable_amount = 0; # authorization void test { - my $tx = Business::OnlinePayment->new("IPPay", @opts); + my $tx = Business::OnlinePayment->new("IPPay", %opt); $tx->content(%content, action => 'authorization only', amount => '3.00' ); $tx->test_transaction(1); $tx->submit; diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl index 06a2428..1133ea0 100644 --- a/t/lib/test_account.pl +++ b/t/lib/test_account.pl @@ -12,7 +12,7 @@ sub test_account_or_skip { sub test_account { my $suffix = shift || 'card'; - my($login, $password) = ('TESTMERCHANT', ''); + my($login, $password) = ('TESTTERMINAL', ''); my %opt; if ( $suffix eq 'check ' ) { |