- my $settle_tx = new Business::OnlinePayment("AuthorizeNet");
- $settle_tx->content(
- type => 'VISA',
- login => 'testing', # CHANGE THESE TO TEST
- password => 'testing', #
- action => 'Post Authorization',
- description => 'Business::OnlinePayment visa test',
- amount => '49.95',
- invoice_number => '100100',
- order_number => '111',
- card_number => '4007000000027',
- expiration => '08/06',
- );
+my $order_number = $tx->order_number;
+like $order_number, qr/^\d+$/;