1 BEGIN { $| = 1; print "1..1\n"; }
3 use Business::OnlinePayment;
6 $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG;
7 $Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl
9 # Use this merchant information for testing only.
11 # Bin= 999995 Agent = 000000 Chain = 111111 Merchant = 888000002200
12 # Store = 5999 Terminal = 1515
14 # If you are doing AVS (address Ver ) use this address 8320 zip 85284.
16 my $tx = new Business::OnlinePayment("VirtualNet",,
17 'merchant_id' => '888000002200',
20 'mcc' => '5999', #merchant category code
21 'bin' => '999995', #acquirer BIN
22 'zip' => '543211420', #merchant zip (US) or assigned city code
27 'merchant_name' => 'Internet Service Provider', #25 char max
28 'merchant_city' => 'Gloucester', #13 char max
29 'merchant_state' => 'VA', #2 char
31 'seq_file' => '/tmp/bop-virtualnet-sequence',
32 'batchnum_file' => '/tmp/bop-virtualnet-batchnum', # :/ 0-999 in 5 days
36 action => 'Authorization only',
37 description => 'Business::OnlinePayment visa test',
38 amount => '999910.00',
39 invoice_number => '100100',
43 address => '8320 Anystreet',
47 card_number => '4111111111111111',
48 expiration => '09/03',
50 $tx->test_transaction(1); # test, dont really charge (doesn't do anything with VirtualNet)
53 if($tx->is_success()) {
55 warn '** ('. $tx->result_code. ') '. $tx->error_message. " **\n" if $DEBUG;
56 warn $tx->error_message if $DEBUG;
58 warn '** ('. $tx->result_code. ') '. $tx->error_message. " **\n" if $DEBUG;