From 66bb30f463ce9846ffa5d98ff0df20851aa4815a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 26 Aug 2002 18:15:04 +0000
Subject: initial import

---
 t/testhost.t | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 t/testhost.t

(limited to 't/testhost.t')

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";
+}
-- 
cgit v1.2.1