1BEGIN { $| = 1; print "1..1\n"; }
2
3use Business::OnlinePayment;
4
5my $tx = new Business::OnlinePayment("OCV",
6  account => '0',
7  server  => 'localhost',
8  port    => 3005,
9);
10$tx->content(
11    type           => 'CC',
12    login          => '10009', #ClientID
13    action         => 'Normal Authorization',
14    description    => 'Business::OnlinePayment visa test',
15    amount         => '1.01',
16    invoice_number => '100100',
17    customer_id    => 'jsk',
18    first_name     => 'Tofu',
19    last_name      => 'Beast',
20    address        => '123 Anystreet',
21    city           => 'Anywhere',
22    state          => 'UT',
23    zip            => '84058',
24    card_number    => '4111111111111112',
25    expiration     => '08/06',
26);
27$tx->test_transaction(1); # test, dont really charge (NOP for this gateway)
28$tx->submit();
29
30if($tx->is_success()) {
31    print "not ok 1\n";
32    warn $tx->error_message;
33} else {
34    print "ok 1\n";
35}
36