diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-10-28 23:27:17 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-10-28 23:27:17 -0700 |
| commit | 1f19e67636476c7119cfb41920c5b176e617c697 (patch) | |
| tree | 4eecee9419a803aa05d6a112c7f6feacf7ac590d /t | |
| parent | 9a8353f9bce55c9587285ec6d1d0a7a882dc0287 (diff) | |
gateway URL change
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 ' ) { |