4 require "t/lib/test_account.pl";
6 my($login, $password) = test_account_or_skip();
9 use_ok 'Business::OnlinePayment';
11 my $tx = Business::OnlinePayment->new("AuthorizeNet");
12 $tx->server('test.authorize.net');
16 password => $password,
17 action => 'Normal Authorization',
18 description => 'Business::OnlinePayment visa test',
20 invoice_number => '100100',
24 address => '123 Anystreet',
28 card_number => '4007000000027',
29 expiration => 'BADFORMAT', #expiration_date(),
31 $tx->test_transaction(1); # test, dont really charge
36 ok($tx->error_message() =~ /The format of the date submitted was incorrect/ );