test updates, turn down debugging verbosity

[Net-GlobalPOPs-MediaServicesAPI.git] / t / lib / test_account.pl

diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl
index 4b316db..b4fa603 100644 (file)
--- a/t/lib/test_account.pl
+++ b/t/lib/test_account.pl
@@ -12,9 +12,16 @@ sub test_account_or_skip {
 
 sub test_account {
     open TEST_ACCOUNT, "t/test_account" or return;
-    my($login, $password) = <TEST_ACCOUNT>;
+    my($login, $password, $hostport) = <TEST_ACCOUNT>;
     chomp $login;
     chomp $password;
+    chomp $hostport;
+
+    if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
+      my($host, $port) = ($1, $3);
+      $Net::GlobalPOPs::MediaServicesAPI::HOST = $host;
+      $Net::GlobalPOPs::MediaServicesAPI::PORT = $port;
+    }
 
     return($login, $password);
 }