X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-TransactionCentral.git;a=blobdiff_plain;f=t%2Fcrypt_bad_card.t;fp=t%2Fcrypt_bad_card.t;h=b750d4b41c54f6aed0a7cf50e99d8cf6ddab24a4;hp=f1b23e64df540ae59aeab770549cbb0ae7304cc9;hb=71bc7dda5b9f0d6127e05706186466c58881c8c1;hpb=5bdb1f2161dbaf2da95155ce9b4f3e880fcf477b diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t index f1b23e6..b750d4b 100644 --- a/t/crypt_bad_card.t +++ b/t/crypt_bad_card.t @@ -14,12 +14,15 @@ if ( $@ ) { use Business::OnlinePayment; +require "t/lib/test_account.pl"; +my($login, $regkey) = test_account_or_skip(); + my $tx = new Business::OnlinePayment("TransactionCentral"); $tx->content( type => 'VISA', - login => '10011', - password => 'KK48NPYEJHMAH6DK', #regkey + login => $login, + password => $regkey, action => 'Normal Authorization', amount => '32.32', #card_number => '4012000000001',