diff options
| author | ivan <ivan> | 2002-08-26 18:15:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-08-26 18:15:04 +0000 |
| commit | 66bb30f463ce9846ffa5d98ff0df20851aa4815a (patch) | |
| tree | d0b506ab18fb80a197d1a929a236c256f568562e /t/testhost.t | |
initial importSTART
Diffstat (limited to 't/testhost.t')
| -rw-r--r-- | t/testhost.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/testhost.t b/t/testhost.t new file mode 100644 index 0000000..72c3a3c --- /dev/null +++ b/t/testhost.t @@ -0,0 +1,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"; +} |