t/testhost.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

BEGIN { $| = 1; print "1..1\n"; }

use Business::OnlinePayment;

my $tx = new Business::OnlinePayment("VirtualNet");

$tx->testhost;

if($tx->is_success()) {
    print "ok 1\n";
} else {
    warn "*******". $tx->error_message. "*******";
    print "not ok 1\n";
}