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";
+}