initial version appears to be hooked up and working against dev sandbox

[Net-VoIP_Innovations.git] / t / lib / test_account.pl

diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
index c52067d..b4ce640 100644 (file)
--- a/t/lib/test_account.pl
+++ b/t/lib/test_account.pl
@@ -15,13 +15,13 @@ sub test_account {
     my($login, $password, $hostport) = <TEST_ACCOUNT>;
     chomp $login;
     chomp $password;
-    chomp $hostport;
+    #chomp $hostport;
 
-    if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
-      my($host, $port) = ($1, $3);
-      $Net::VoIP_Innovations::HOST = $host;
-      $Net::VoIP_Innovations::PORT = $port;
-    }
+    #if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
+    #  my($host, $port) = ($1, $3);
+    #  $Net::VoIP_Innovations::HOST = $host;
+    #  $Net::VoIP_Innovations::PORT = $port;
+    #}
 
     return($login, $password);
 }