From 1d339ad33855e8df8c1f466b494acbfd0e0907da Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 12 Dec 2012 16:31:06 -0800
Subject: initial commit

---
 t/lib/test_account.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 t/lib/test_account.pl

(limited to 't/lib')

diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
new file mode 100644
index 0000000..c52067d
--- /dev/null
+++ b/t/lib/test_account.pl
@@ -0,0 +1,29 @@
+use Test::More;
+
+sub test_account_or_skip {
+    my($login, $password) = test_account();
+
+    unless( defined $login ) {
+        plan skip_all => "No test account";
+    }
+
+    return($login, $password);
+}
+
+sub test_account {
+    open TEST_ACCOUNT, "t/test_account" or return;
+    my($login, $password, $hostport) = <TEST_ACCOUNT>;
+    chomp $login;
+    chomp $password;
+    chomp $hostport;
+
+    if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
+      my($host, $port) = ($1, $3);
+      $Net::VoIP_Innovations::HOST = $host;
+      $Net::VoIP_Innovations::PORT = $port;
+    }
+
+    return($login, $password);
+}
+
+1;
-- 
cgit v1.2.1